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Report 


^lesseberich^ür^^Compute^88J 

Der Münchner 
Messe-Flop 

Nur ein Prozent aller deutschen Betriebsstätten 
nutzen derzeit Möglichkeiten der EDV. Die Notwendigkeit des 
Computereinsatzes haben viele Firmen längst erkannt, 
einen ersten Schritt aber - bedingt durch fehlende Sachkenntnis 
und mangelnde Markt-Transparenz - noch nicht getan. 

Eines der Hauptziele der Münchner Messe Büro & Computer war es, 
diese Schwellenängste abzubauen. 



B ereits zum 14. Mal fand zwi- 
schen dem 4. und 7. Mai in 
München die Messe Büro & 
Computer statt. Der Besucher, der 
große internationale Fachmessen wie 
die CeBIT in Hannover oder die 
Systems in München gewohnt ist, war 
sicherlich von dem sich bietenden 
Bild überrascht. 

Der größte Teil der 163 Firmen, die 
sich auf einer Fläche von 38.000 Qua- 
dratmetern präsentierten, waren 
keine multinationalen Konzerne, 
sondern regionale Fachhändler. So 
können auf der Messe geknüpfte Kon- 
takte ohne Probleme weiter vertieft 
werden. Dies kommt sicherlich dem 
Ziel dieser Veranstaltung entgegen, 
Hemmschwellen aufSeiten der EDV- 
Anwender abzubauen. 

Eigens zu diesem Zweck wurde ein in 
die Messe integriertes Forum geschaf- 
fen, das dem Besucher Fachvorträge 
anbot und als Diskussionsplattform 
gedacht war. 

Wir besuchten die Büro & Computer 
am letzten der insgesamt vierMesseta- 
ge. Das Getümmel großer Massen ge- 
wohnt, überraschte uns zu Beginn die 
Ruhe in den Hallen. Neben einersehr 
großzügigen Standplanung war hier- 
für auch der schwache Besuch an die- 
sem Tag verantwortlich. Einen „Lan- 
gen Samstag" opfern wohl nur wenige 
Leute für einen Messebesuch. 

So „drängte" sich an den Ständen der 
Aussteller nur das Standpersonal. Ein 
durchaus erfreulicher Aspekt für den 
Rat und Hilfe suchenden Interessen- 
ten, der andernorts mit ein paar Pro- 
spekten abgewimmelt wird, sich hier 
aber in Ruhe informieren konnte. 
Neben einer großen Anzahl von Pro- 
dukten aus dem Bereich der EDV 
wurden auch Büromöbel, Zeichenge- 
räte und Organisationsmittel ausge- 
stellt. In einer Zeit, in der Datenbank- 
programme schon auf Heim-Com- 
putern laufen, scheint der gute alte 
Karteikasten immer noch nicht über- 
holt. Mehrere Firmen präsentier- 
ten Neuentwicklungen. 

Die Atmosphäre auf den Ständen der 
Bürodesigner und Büromöbel-Her- 
steller war beinahe klinisch steril. 
Wenn die dort gezeigten Einrichtungs- 
vorschläge das Büro der Zukunft 
repräsentieren, so bedauere ich jeden 
dort Beschäftigten. 

Kalte Farben, ein von extremer Funk- 
tionalität geprägtes Design und Mate- 
rialien wie Kunststoff und Blech kön- 
nen mich jedenfalls nicht zu einer 
kreativen Arbeit inspirieren. 




Die meist 
regionalen 
Aussteller hatten 
viel Platz um sich 
zu präsentieren. 
In sechs großen 
Hallen verliefen 
sich die wenigen 
Besucher. 


Dabei wurde gerade das Wort Kreati- 
vitätaufdieser Messe stark strapaziert. 
Viele Aussteller waren bemüht, Krea- 
tivität in Zahlen und Prozentpunkten 
auszudrücken, um eine Steigerung 
derselben werbewirksam einzuset- 
zen. Sätze wie : „Stellen Sie sich vor, die 
Kreativität Ihrer Mitarbeiter würde 
um fünf Prozent gesteigert", geisterten 
durch die Hallen. Es scheint, daß das 
unpopuläre Wort Produktivität durch 
diesen ModebegrifT ersetzt wurde. 
Auf dem Sektor der Zeichengeräte 
hält die Mikro-Elektronik Einzug. Es 
muß nicht gleich eine komplette 
CAD-Anlage erworben werden. Klei- 
ne Geräte, die, auf das Zeichenbrett 
aufgesetzt, Schriften und häufig be- 
nötigte Symbole zeichnen, werden 
immer beliebter. 


Der Fachhandel 


Die Fachhändler machten deutlich, 
daß der Anwender komplette Lösun- 
gen braucht und auch sucht. So versu- 
chen sie, Hard- und Software im Paket 
zu vermarkten. 

Dies ist ein sehr individuelles Ge- 
schäft. Standardpakete großer Softwa- 
refirmen kommen hierbei selten zum 
Verkauf. Sie dienen höchstens als Ba- 
sis für eine kundenspezifische Anpas- 
sung. Diese wird vom Fachhändler 
oder einem angeschlossenen System- 
haus ausgearbeitet. 

Nach Aussage vieler Anbieter weiß 
der Kunde heute, bedingt durch gute 
Vorarbeit von Berufsverbänden, recht 
genau, was er möchte. Handwerker- 
innungen und Berufsverbände haben 
Informationsmaterial erstellt, das es 
auch dem unbedarften F insteiger er- 
möglicht, sich über die Einsatzgebiete 
und Grenzen der elektronischen 
Datenverarbeitung zu informieren. 
Auch Laien können somit bestim- 
men, wo sich der EDV-Einsatz für 
sie lohnt. 

Einem kompetenten Kunden muß 
auch ein qualifizierter Fachhändler 
gegenüberstehen. Um dieser Forde- 
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rung gerecht zu werden, ist der EDV- 
Fachhändler gut beraten, sich auf 
die Unterstützung weniger Branchen 
oder Anwendungen zu spezialisieren. 
Diese Tendenz ist bei allen größeren 
Systemhäusern zu erkennen. 

Laut Münchner Messe AG nutzen 
derzeit nur ein Prozent aller deutschen 
Betriebsstätten die Möglichkeiten der 
elektronischen Datenverarbeitung. 
Selbst in Unternehmen mittlerer Grö- 
ße, mit zwischen 30 und 500 Beschäf- 
tigten, liegt die Verbreitung von Com- 
puteranlagen nur bei 18 Prozent. 


Software 


Viele Selbständige, Freiberufler, 
Handwerker und Inhaber kleinerer 
Betriebe zögern bei einer derartigen 
Investition. Sie bemängeln am Com- 
putereinsatz ein Übermaß an unver- 
ständlicher Technik, ohne eine deutli- 
che Steigerung der Produktivität als 
Gegenleistung zu erhalten. Ursache 
hierfür ist, nach beinahe einstimmiger 
Aussage von Anbietern und Berufs- 
verbänden, der Software-Sektor. 

Die in der Vergangenheit angebotene 
Software war zu abstrakt und stand zu 
nahe an der Technik des Computers. 
Effektiv einzusetzen war sie nur nach 
langer Einarbeitung durch technisch 
versierte Anwender. Erst eine Anpas- 
sung von Benutzeroberflächen und 
Programmen an die gewohnte Umge- 
bung des Anwenders schafft Abhilfe. 


Hardware 


Ein wichtiger Aspekt bei der Beschaf- 
fung von Computer-Hardware sind 
die möglichen Erweiterungen. Beson- 
ders kleinere Unternehmen fürchten, 
von der rasanten Entwicklung der 
Computertechnik überrannt zu wer- 
den und verlangen Perspektiven für ei- 
nen weiteren Ausbau ihrer Systeme. 
Eine weitere Standardisierung von 
Hardware und Betriebssystemen hilft 
hier weiter. Die meisten derzeit ver- 
kauften Systeme entsprechen dem 
von IBM gesetzten Industriestandard. 
Die neue Produktline der IBM-PS/2- 
Modelle wird nur zögernd akzeptiert. 
Als Betriebssystem wird derzeit über- 
wiegend MS-DOS eingesetzt. Kleine- 
re und mittlere Netzwerke laufen mit 
Novell-Software. 
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Ein Teil der Kunden hat schon et- 
was von dem Betriebssystem OS/2 
gehört und will sich beim Hardware- 
kauf diese Option offenhalten. Viele 
Anbieter versprechen zwar auf OS/2 
basierende Lösungen, präsentieren 
kann sie derzeit noch keiner. 

Der Käufer vertraut in erster Linie gro- 
ßen Firmen. In der Hoffnung auf Kon- 
tinuität einer Produktlinie erwirbt er 
dabei bevorzugte Produkte der oberen 
Preisklasse, um nicht binnen kurzer 
Zeit in einer technologischen Sackgas- 
se zu landen. Der Slogan des Handels 
heißt hier: „Lieber ein paar Mark zu- 
viel investieren, als die gesamte Inve- 
stition in den Sand setzen“. Berufsver- 
bände und Fachzeitschriften' sind ge- 
fordert, diese Aussage zu relativieren. 
Es ist sicher richtig, daß große etablier- 
te Firmen eine kontinuierliche Weiter- 
entwicklung ihrer Produktpalette ga- 
rantieren. Es ist weiterhin richtig, daß 
die von diesen Firmen gebotene Un- 
terstützung in Problemfällen zuverläs- 
siger und schneller funktioniert als die 
von Billiganbietern aus Fernost. 
Zwischen diesen beiden Extremen 
existiert aber eine große Zahl kleine- 
rer Anbieter, die viel flexibler auf spe- 
zielle Wünsche eingehen können als 
Branchenriesen. Hier lassen sich bei 
gleichem Service bis zu 40 Prozent an 
Kosten sparen. 

Die Möglichkeit, eine maßgeschnei- 
derte Systemlösung zu erwerben, ist 
sicherlich ein Argument, auch ängstli- 
che EDV-Einsteiger zu einem ersten 
Schritt zu ermuntern. Dieser Schritt 
sollte möglichst bald getan werden. 
Immer engere Märkte zwingen auch 
kleine Firmen zu einem Einsatz der 
EDV. Es muß nicht immer gleich eine 
umfassende Gesamtlösung sein, 
modulare Systeme gestatten es, so- 
wohl die Hard- als auch die Software 
Stück für Stück zu erwerben und ein- 
zusetzen. 

Dies hilft auch den Angestellten, sich 
an die Neuerungen an ihrem Arbeits- 
platz langsam zu gewöhnen. Eine 
Steigerung der Produktivität ist nur 



dann zu erwarten, wenn die mit dem 
Medium Computer konfrontierten 
Personen das neue Arbeitsmittel auch 
akzeptieren. 

Um diesen Schritt zu erleichtern, bot 
diese Messe ein Forum an. Fachrefe- 
renten sprachen dort über Themen im 
Umfeld der EDV. Dieser erstmals an- 
gebotene Service erwies sich als Flop. 
Die räumlichen und technischen Vor- 
aussetzungen waren zwar gut, die 
Qualität der Referate war es aber zum 
Großteil nicht. Von einem interessan- 
ten Themenkatalog angelockt, verlie- 
ßen daher viele Besucher die Vorträge 
frustriert nach kurzer Zeit des Zu- 
hörens. 

Von einem eifrigen, wenig sachkundi- 
gen Conferencier ermuntert, verga- 
ßen die Referenten schnell ihr sicher- 
lich vorhandenes Fachwissen und be- 
trieben lautstarke Firmenwerbung. 
Ich habe mir an einem Nachmittag 
drei Vorträge des Vertreters eines gro- 
ßen deutschen PC-Herstellers ange- 
hört. Er sollte zu verschiedenen The- 
men jeweils eine Stunde reden. Resul- 
tat waren jeweils 15 Minuten Firmen- 
werbung ohne Bezug zur angekündig- 
ten Thematik. Selbst der unerfahrene 
EDVAnwender kann mit solch sub- 
jektiven Informationen nichts anfan- 
gen. Der Messeleitung sei geraten, 
dieses im Ansatz sicherlich positive 
Forum zu überdenken und in anderer 
Form zu realisieren. 

Fazit 


Eine regionale Messe wie Büro & 
Computer bietet einen interessanten 
Querschnitt geläufiger EDVAnwen- 
dungen. Der direkte Kontakt zu einem 
Fachhändler oder Systemhaus der Re- 
gion erleichtert eine weitere Beratung. 
Informationen von Berufsverbänden 
und Handwerkskammern vereinfa- 
chen potentiellen EDV-Anwendern 
das Gespräch mit einem Fachhändler. 
Trotz anwenderfreundlicher Software 
und weitgehend standardisierter 
Hardware sind noch lange nicht alle 
Berührungsängste abgebaut. Ein 
Messe-Forum mit einer objektiven 
Beratung ist wünschenswert. Das prä- 
sentierte Angebot ist so breit gefä- 
chert, daß nahezu jeder Anwender sei- 
ne Lösung finden müßte. Der Einstieg 
in die EDV sollte, um konkurrenz- 
fähig zu bleiben, bei vielen kleinen 
und mittleren Betrieben nicht mehr 
lange hinausgezögert werden . LS 


Grundlagen 



Wer mit Computern arbeitet, muß Daten und 
Programme speichern können. Externe Speicher kennt jeder: 

Diskette, Magnetband und Plattenspeicher. 

Aber auch der Rechner selbst braucht Speichermöglichkeiten: 

Arbeitsspeicher, Zwischenspeicher, Festwertspeicher und 
andere. Diese auf der Platine des Rechners untergebrachten 
Speicher sind alle in Chips untergebracht. 







Unter Dach 

und Fach 


P rogramme und Daten werden in 
binär kodierter Form abgespei- 
chert. Jeweils acht Bit werden zu 
einem Speicherplatz zusammenge- 
faßt und erhalten eine Adresse. Eine 
spezielle Adressierlogik macht es 
möglich, jeden Speicherplatz einzeln 
anzusteuem. Dabei ordnet der Spei- 
cher einer vorgegebenen Adresse das 
jeweilige Datenwort (acht Bit) zu. 

Die Anzahl der Gesamtbit eines Spei- 
chers ist immer eine Potenz von 2. 


2|? Bit 


1024 Bit - 1 KBit 
2048 Bit = 2 KBit 

_ 32 KBit 

2 16 Bit = 64536 Bit = 64 KBit 


Is 1 ®“" 

2! 5 Bit = 32768 Bit = 


Bekanntlich ist das Bit (Binary Digit) 
die kleinste Darstellungseinheit für 
binäre Daten (0 oder 1). Um eine grö- 
ßere Anzahl von alphanumerischen 
Zeichen, etwa das Alphabet und die 
Ziffern von 0 bis 9, sowie Sonder- und 
Steuerzeichen darstellen zu können, 
werden jeweils acht Bit zu einer Ein- 
heit zusammengefaßt: zu einem Byte. 
Ein Byte ermöglicht so die Darstel- 
lung von 256 verschiedenen Zeichen. 
256 ist die Anzahl der möglichen 
Kombinationen von 0 und 1, wenn 
insgesamt acht Stellen zur Verfügung 
stehen. 

In der Praxis wird zu den acht Bit noch 
ein sogenanntes Prüfbit „gepackt“ (so- 
daß es eigentlich neun Bit sind). 

Die acht Datenbit können auf drei un- 
terschiedliche Arten belegt werden: 


Das Layout der verschiedenen 
Speicherchips ist sehr ähnlich. Die ver- 
schiedenen Technologien sind nicht 
zu unterscheiden. 





Bit Map 


10123 0123 0123 0123 (— 


COLUMN 

OUTPUTS 


ROW 3 


Binäre Darstellung. 

Hier können Dezimalzahlen von 0 bis 
255 (=256 Stück) in einem Byte ge- 
speichert werden. 

Dies ist im allgemeinen die günstigste 
Darstellungsart und bedingt die gün- 
stigste Speicheraufteilung. 

Numerische Darstellung. 

Hier wird ein Byte in zwei Tetraden 
unterteilt. Im sogenannten „gepack- 
ten Format“ lassen sich so zwei Dezi- 
malstellen verschlüsseln. 

Alphanumerische Darstellung. 

Wie bei der numerischen Darstellung 
wird auch hier das Byte in zwei Zonen 
von je vier Bit unterteilt: Die rechte 
Hälfte des Byte ist das niedrigwertige 
Bit und die linke Hälfte das höherwer- 


tausende von Speicherzellen. 

tige Bit. Dezimalziffem werden nur 
in den niedrigwertigen Bit verschlüs- 
selt, während Buchstaben und Son- 
derzeichen durch die Kombination 
einer Ziffemverschlüsselung (s.o.) 
und einer Zonenverschlüsselung in 
den übrigen Bit vorgenommen wird. 
Speichergrößen werden daher nicht in 
Bit, sondern in Byte angegeben: 

2 19 Bit = 524.288 Bit - 51? KBit 
= 64 KByte 

2 20 Bit = 1.048.576 Bit = 1.024 KBit 

= 128 KByte 

2 21 Bit = 2.097.152 Bit = 2.048 KBit 

= 256 KByte 

2 22 Bit = 4.194.304 Bit = 4.096 KBit 

= 512 KByte 


RAM 


Beim RAM (Random Access Memo- 
ry) handelt es sich um einen Speicher 
mit wahlfreiem Zugriff. Er kann wahl- 
weise ausgelesen oder mit neuen 
Daten beschickt werden. Aus diesem 
Grunde spricht man auch von einem 
Schreib- und Lesespeicher. Wahlfrei 
bedeutet aber auch, daß man sich 
Daten (über Adressen) auswählen 
kann, im Gegensatz zu einem Spei- 
cher, der nur den kompletten Inhalt 
freigibt. RAM-Speicher ermöglichen 
einen direkten Zugriff durch direkte 
Adressierung. 

Eine weitere Eigenschaft zeichnet das 




RAM aus. Nach dem Einschalten des 
Rechners enthält der RAM-Speicher 
irgendeine zufällige Information, also 
nicht nur Nullen. Das resultiert aus 
der Flüchtigkeit dieses Speicherme- 
diums: Beim Abschalten des Rech- 
ners verliert er die gespeicherten In- 
formationen und befindet sich somit 
in einem Undefinierten Zustand, man 
kann also auch nicht sagen, daß er 
keine Informationen enthält, eben 
nur ungeordnete. 

Das RAM benötigt zum Erhalten der 
auf ihm gespeicherten Information 
elektrische Energie. Durch die Ent- 
wicklung extrem stromsparender 
RAM-Bausteine wurde es möglich, 
diese bei ausgeschaltetem Rechner 
mit Batteriestrom zu versorgen. Dies 
bedeutet, die Information bleibt er- 
halten, solange der Ladezustand der 
Batterie es erlaubt. Bei erneutem Ein- 
schalten des Rechners wird die Batte- 
rie nachgeladen. Man spricht hier von 
Batteriepufferung. 

ROM 


Wie der Name ROM (für Read Only 
Memory) schon sagt, können hier nur 
Daten gelesen werden. Weil der Infor- 
mationsinhalt des ROM nicht verän- 
dert werden kann, spricht man auch 
von einem Festwertspeicher. ROM- 
Chips haben eine wichtige Funktion 
im Rechner: Sie enthalten beispiels- 
weise Betriebssystem, Programmier- 
sprachen oder eine Laderoutine (für 
das Betriebssystem auf der Diskette 
und anderes). Beim Einschalten des 
Rechners wird ein Programm von ei- 
nem ROM gebootet (also automatisch 
geladen). Dieses Programm ermög- 
licht erst den Dialog mit dem Compu- 
ter (über Tastatur, Bildschirm). Meist 
ist dieses Programm entweder ein La- 
der für das Betriebssystem oder das 
Betriebssystem selbst. 

Der Inhalt des ROM ist unveränder- 
bar und wird auch beim Ausschalten 
des Rechners nicht gelöscht. Zum Er- 
halten der gespeicherten Information 
ist keine Energie notwendig. 
Festwertspeicher sind wegen der nicht 



notwendigen Adressierung sehr 
schnell und leicht in Systeme zu inte- 
grieren. 

PROM 


Das PROM (Programmable Read On- 
ly Memory) kann vom Anwender nur 
einmal programmiert werden. Die In- 
formationen werden eingebrannt und 
können dann nicht mehr geändert 
werden. Dieser programmierbare 
Festwertspeicher verhält sich darauf- 
hin genau wie ein ROM. 

Ob ein ROM oder ein PROM in ein 
Gerät eingebaut wird, hängt im we- 
sentlichen von der produzierten 
Stückzahl des Gerätes ab. Bei großen 
Serienfertigungen wird man meist 
ROMs verwenden, deren Entwick- 
lung zwar sehr teuer ist, die Massen- 
produktion aber billig wird. PROMs 
müssen einzeln programmiert wer- 
den, daher eignen sie sich mehr für 
kleine Serien oder sogar Einzelanferti- 
gungen. 

EPROM 


Wie das PROM kann auch das 
EPROM (Erasable Programmable 
Read Only Memory) vom Anwender 
programmiert und dann wie ein ROM 
benutzt werden. Das EPROM ist ein 
löschbarer Speicher. Mit Hilfe von 
UV-Licht kann eine Programmierung 


rückgängig gemacht, das EPROM ge- 
löscht werden. Daraufhin ist es wieder 
bereit, neue Informationen aufzuneh- 
men und zu speichern. Daher eignen 
sich EEROMs hervorragend für Soft- 
ware-Entwicklungen. Meist wird es 
nicht fest auf Platinen verlötet, son- 
dern nur in IC-Sockel gesteckt, um es 
zum Löschen und erneuten Program- 
mieren von der Platine wieder entfer- 
nen zu können. 

Der EPROM-Chip besitzt auf seiner 
Oberfläche ein Fenster für den 
Löschvorgang. Dies unterscheidet ihn 
schon rein äußerlich von anderen 
Chips. 

Zum Löschen des Speicherinhaltes 
wird der Chip unter eine spezielle 
Löschlampe (UV-Licht) gebracht. 

EEPROM 


EEPROM (Electrical Erasable and 
Program Read Only Memory) ist eine 
Weiterentwicklung der zuvor be- 
schriebenen EPROM-Chips. Im Ge- 
gensatz zu diesen müssen sie nicht mit 
UV-Licht gelöscht werden, um neu 
programmiert werden zu können. 
Einzelne Speicherzellen können bei 
erneuter Programmierung einfach 
überschrieben werden. Sie sind bedie- 
nungsfreundlicher als EPROMs und 
zeichnen sich zudem durch eine 
höhere Lebensdauer aus, durch den 
Wegfall der möglichen UV-Bestrah- 
lung. 

Dipl Ing. (FH) Oliver Rosenbaum 



Der neue 
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ab sofort bei uns! 


und für den PC-Einsteiger! 



4630 Bochum 1 Hauptbahnhof Südausgang 
Telafon 0234/336380 
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■ TIPS & TRICKS 


Gewusst wie ! 

Immer wieder .sind es gerade die kleinen Helferlein, 
die das Herz des geplagten Anwenders höher 
schlagen lassen 

1. Ein Druckertreiber für 24 Nadeldrucker 

Die 24 Nadeltechnik ist zur Zeit der Renner auf dem 
Druckermarkt. Damit der User die Möglichkeiten 
seines 24 Nadeldruckers auch richtig nutzen kann, 
präsentieren wir einen Treiber für einen solchen 
Drucker. 

2. Ein Variabelster sorgt für Durchblick 

Es ist immer gut zu wissen, welche Variablen-Namen 
in einem GFA-Basic Programm Vorkommen. Unser 
Programm “Varprint“ zeigt nun alle in einem Pro- 
gramm vorkommenden Variablen am Bildschirm. Für 
Basic-Programmierer, die leicht den Überblick über 
die im Programm verwendeten Variablen verlieren, 
ein idealer Helfer in der Not. 


Druckertreiber «für 24 Nadeldrucker 


Lprint Chr$ (27) +"<§“ 

Mg$=" n +Chr* (27) + "* ,, +Chr* (38) +Chr* ( 128) +Chr* (2) 
Open ,,M ,#99, "LSTs " 

* For Z=0 To 399 Step 24 
A$= " " 

For S=0 To 639 
For 1=0 To 7 

I-f* Point (S,Z+I )=1 
Al=Al+2'-(7~I> 

Endi-f 
Next I 

For 1=0 To 7 

I-f Point (S, 8 +Z+I ) 

A2=A2+2 '• (7-1 ) 

Endi-f 
Next I 

For 1=0 To 7 

I-f Point (S, 16+Z + I)=1 
A3=A3+2" % -(7-I> 

Endi -f 
Next I 

A*=A$+Chr* ( Al ) +Chr* ( A2) +Chr* (A3) 

A1=0 
A2=0 
A3=0 
Nex t S 

Print #99 , Mg$ ; A $ 5 Chr $ < 13) ; 

Print #99,Chr* (27) ; "3" 5 Chr* (24) 

Next Z 
CI ose #99 


Varprint 


Fi 1 eselect "a:\*.bas"," ",A$ 

Open " I” , #1,A$ 

For T=0 To 127 
V 01 d Inp (#1 ) 

Next T 

Fr int " Var i ab 1 en 1 i st e von “ ■ A$ 
Print St rinqS (80, H - M > 

Do 

CS= M n 


Repeat 
I n c Z 
A= Inp (#1 ) 

CS=CS-FChrS (A) 

Until A< 32 

CS=Le-f tS (CS, Len (CS) -1 ) 
Print ChrS (9) ; CS; “ " ; 

Ex i t I-f I n st r ( CS , 11 * " ) < >0 
Loop 


Diskmon 1.0 

Der Bildschirm ist bei Diskmon 1 .0 in drei Teile ge- 
gliedert; , 

1. Statusfenster 

2. Anzeige und Editierfenster 

3. Menüfenster 

Zu 1, 

Im Statusfenster werden aktuelle Werte angezeigt: 


— Track: 

die Spur 

— Sektor: 

der Sektor 

- Side: 

die selektierte Diskseite, bei SF 354 nur 
„0“ möglich 

— Drive: 

das Laufwerk das angesprochen werden 
soll 

bei ,,0“ ist beim letzten Schreibvorgang 
kein Fehler aufgetreten, andernfalls steht 
hier dann eine negative Fehlernummer 

- Status: 

- Byte: 

Zu 2. 

das Byte auf dem sich der Cursor gerade 
befindet 


Im Editierfenster wird der aktuelle Sektorinhalt ange- 
zeigt. Da nur 256 Bytes auf einmal angezeigt werden. 
Durch das Betätigen der linken Maustaste kann so 
weiter gescrollt werden. Mit dem Mauszeiger kann 
innerhalb dieses Fensters der Cursor auf ein beliebi- 
ges Byte im HEX- oder ASCII-Format plaziert wer- 
den. Wird ein ASCII-Byte verändert, so wird auch 
gleichzeitig der HEN-Code verändert und umgekehrt. 
Im Statusfenster wird jetzt angezeigt, welches Byte 
gerade verändert wird. Dies alles funktioniert aber 
nur, wenn sich der Cursor in diesem Fenster befindet. 

Zu 3. 

Im Menüfenster können die verschiedenen Funktionen 
des Diskmons ausgewählt werden: 

— Track + der aktuelle Track wird erhöht 

— Track — der aktuelle Track wird verringert 

— Sektor + siehe Track + 

— Sektor — siehe Track — 

— Write Sektor auf den aktuellen Sektor und Track 

wird der Buffer zurückgeschrieben 

— Side 0 Seite 0 wird selektiert 

— Side 1 Seite 1 wird selektiert 

— Boot Sektor. Der Track wird auf 0 und der Sektor 

auf 1 zurückgesetzt 

— Set T&S Der Track und Sektor können per 

Tastatur eingegeben werden 

— Drive Das Laufwerk wird ausgewählt 

— Format Track. Tracks können formatiert werden 

— Print Sektor. Der aktuelle Sektor wird ausgedruckt 

— Exit Das Programm wird verlassen und kehrt 

zum Desktop zurück. 
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' DISKMONITOR 


' variablen 
Dim Bu$<32> 

Adr = 1 
Fi =&HE5 
Dev=0 
Sec = l 
Tra=0 
Tramax=82 
Secmax-9 
Si d=0 
Fehl =0 
Res=l 

Bu-f *=Space$ (512) 

Sbu-f $=Space$ (512*Secmax ) 

Nbu-f $=Space$ (512*Secmax ) 

©Read (Tra, Sec) 

©Screen 
©Wand 1 e 
©Update 
ÖAsc i i hex 

Print Chr4f(27)+ ,, e ,, s 
Pr i nt At <56 , 5) ; 

Do 

Let üut=0 
Defmouse 0 
Do 

©Ab+rage 

I-f SelectedOB 

On Selected Gosub Inctra,Dectra, 

Incsec , Decsec , Wrtsec ,Side0,Sidel , 
Boot sec , Trasec , Ch_dr i ve , 

Suchen , Format , Pr i nt , Ex i t 
Sei ected=0 
Endi-F 

Exit I-F Out = 1 
Loop 

Let Out==0 
De-F mouse 1 
Do 

©Edit 

Exit I t Qut = l 
Loop 
Loop 

Procedure Inctra 
I-f T r a< =T r amax 
Inc Tra 

©Read (Tra, Sec ) 

©Asci i hex 
©Update 
Endi -F 
Return 

Procedure Dectra 
I-F Tra >0 
Dec Tra 
©Read (Tra , Sec ) 

©Asci i hex 
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©Update 
Endi + 

Return 

Procedure Incsec 
I *f Sec\=8ecmax 
Inc Sec 

©Read (Tra , Sec ) 

©Asci i hex 
©Update 
Endi -f 
Return 

Procedure Decsec 
I-f Sec>l 
Dec Sec 

©Read (Tra , Sec ) 

©Asciihex 
©Update 
Endi t 
Return 

Procedure Side0 
Sid=0 

©Read (Tra, Sec ) 

©Asci i hex 
©Update 
Return 

Procedure Sidel 
Sid=l 

©Read (Tra, Sec ) 

©Asci i hex 
©Update 
Return 

Procedure Boot sec 
Si d=0 
Tra=0 
Sec = l 

©Read (Tra, Sec ) 

©Asci i hex 
©Update 
Return 

Procedure Trasec 

Get 100, 150 ,525, 255, Rette* 

De-ftext 1,0,0,13 

©Window (100, 150,420, 100, “Track & Sektor“ ,1) 
Print At ( 25 , 13); Chr * ( 27 )+"! "; "Track : “ ; 

Form Input 2 As Tr* 

Print At (25, 14) ; “Sektors “ ; 

Form Input 2 As Se* 

I-f Val (Se* \ <Secmax And Val ( Tr * ) < Tr amax 
Tra=Val (Tr*) 

Sec=Val (Se*) 

©Read (Tra, Sec) 

©Asci i hex 
©Update 
Endi-f 
Return 

Procedure Suchen 

Get 100, 150, 525, 255, Rette* 

De-ftext 1,0,0,13 

©Window (100, 150,420,100, “Suchen“ , 1 ) 

Print At (25,13) ; Chr* (27) +"-f “ ; “Such-String: H ; 
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Form Input 15 As Sut 
For T=0 To Tramax 
Print At (5,8) ; T; 

Fehl =Xbi os ( 8 , L: Varptr (Sbu-f t ) , 

L: Fi , Dev , 1 ,T,Sid , Seemax ) 

Su=Instr (Sbu-f t , Sut ) 

I-f Su< >0 

Print At (25,15) 5 "Track: "+Strt (T) + " 
Sector: "; Trunc (Su/512) 

©Read (Tra , Trunc (Su/512) +1 ) 

©Asci i hex 
Tr a=T 

Sec=Trunc (Su/512) +1 
T = Tramax 
Endi -f 
Nex t T 

Put 100, 150, Rettet 
Print Chrt (27) +"e" ; 

Return 

Procedure Wrtsec 

Alert 1," Wollen Sie wirklich ! 

Track : "+Strt (Tra) + " ! 

Sector : "+Strt (Sec) +" ! 

auf Disk zur ückschrei ben ?",1," JA 
NEIN " ,A1 

I-f Al = 1 

©Wr ite(Tra,Sec) 

Endi-f 

Return 

Procedure Format 

Get 100, 150, 525, 255, Rettet 
De-ftext 1,0,0,13 

©Window (100, 150,420, 100, "Format Track" , 1) 
Print At (25, 12) ; Chrt (27) +"-f " ; "Track : " 

Form Input 2 As Trt 
Print At (40, 12) ; "bis Track : "; 

Form Input 2 As Btrt 
Print At (25, 13) 5 "Sectoren : 

Form Input 2 As Set 

Print At (25, 14) ; "Side : "; 

Form Input 2 As Sit 

Alert 1 , "Wirklich -formatieren ??",2," JA 
NEIN " , A 1 
I-f Al =1 

De-fmouse 2 

For Tra=Val (Trt) To Val (Btrt) 

Fehl =Xb i os ( 1 0 , L: Varptr (Nbu-f t ) , L : 0 , Dev , 
Val ( Set ) , Tra ,Sid, 1 ,L: 8 <H 8 7 65432 1 , S<HE 
Print At (35, 15) ; "Track#"; Tra 
Next Tra 
De-fmouse 0 
Endi-f 

Print Chrt (27) +"e" ; 

Put 100, 150, Rettet 
Return 

Procedure Edit 
Let Out =0 
Do 

Print At (56,5) ; Chrt (27) +"e" j 
Cx =56 
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Fl ag= 1 
Repeat 

Keyt=Mi dt ( In keyt ,1,1) 

Key2t=Mi dt ( Inkey t ,2,1) 

Mouse M>: , My , Mk 
I-f Mk=2 

Be-f mouse 2 
I-f S>: >0 

Sub Sm , 16 
Adr=l 
El se 

Adr=257 
Add Bm ,16 
Endi-f 
©Update 
©Wandl e 
For T=0 To 15 

Print At (6,5+T) ;But (T+Sx) 

Next T 
©Mkey (0) 

Print At (56 , 5) ; 

De-f mouse 1 
Endi-f 

' HEX -feld 

9 

For T=0 To 52 Step 3 
I-f Int (Mx/8+1 ) =T 
Fl ag 1=1 
T =52 
Else 

Fl ag 1 =0 • v 

Endi-f* 

Nex t T 

I-f (Mk= 1 And Mx >8*5 And Mx<8*52 

And My >1 6*4 And My< 16*20) And Flagl=l 
Cx = I n t (Mx/8+1 ) 

Cy=Int (My/16+1 ) 

Mkx=Cx 

Adr= ( (Mkx-6) /3)+( (Bx+Cy-5) *16) +1 
Print At (70,2) ; Adr; 

Print At (Cx , Cy) ; 

Zae=0 

Repeat 

Until Mousek=0 
Asciihex=2 
Endi-f 

I-f ( Key t= > " 0 " Änd Keyt<="9") Or 
<Keyt=>" A" And Keyt<="F" ) Dr 
( Key t=>"a H And Keyt< = "-f " ) 

And Asc i i hex =2 
Keyt=Uppert (Keyt) 

Print At (Cx , Cy ) ; Keyt ; 

Inc Cx 

A=Trunc (Cx /3) +54 

Adr= ( (Mkx-6) /3) + ( (Bx+Cy-5) *16) +1 
Print At (70,2) ; Adr; 

Mi dt (But (Bx+Cy-5) ,Mkx + Zae, 1 ) =Keyt 
At=Midt (But (Sx+Cy-5) , Mkx ,2) 
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©Wand 1 eh ex ( At ) 

I-f Dez >32 And Dez <128 

Print At ( A+B , Cy ) ; Chrt (Dez ) ; 
Else 

Print At (A+B,Cy) ; " . 

Endi f 

Print At(Cx,Cy); 

Mi dt (Bu-ft,Adr , l)=Chrt (Dez ) 

Inc Zae 
I-f Zae=2 
Add Mkx , 3 
Zae=0 
Inc Gx 
I-f Cx >52 
B=0 
Cx =6 
Mkx =8 
I-f Cy<20 
Inc Cy 
Endi-f 

Print At(Cx,Cy); 

Endi-f 

Endi-f 

Endi-f 

' ASCII -feld 


I-f |vi). c = i And Mx >8*55 And Mx<8*71 
And My >1 6*4 And My< 16*20 
Cx=Int (Mx/8+1 ) 

Cy=Int (My/16+1 ) 

Adr= (Cx— 55) + ( (Sx+Cy-5) *16) 

Print At (70,2) ; " ";Chrt(8); 

Chrt ( 8 ) ; Chrt (8) ; Adr 
Print At(Cx,Cy); 

Repeat 

Until Mousek=0 
Asci i hex=l 
Endi -f 

I-f Asc (Keyt) =>32 And Cx !>=56 And Asciihex = l 

Print At ( ( Cx —56 ) *3+5 , Cy ) ; " " ; Hex $ ( Asc (Keyt) ) ; 

Adr= (Cx-55) + ( < Sx+Cy-5) *16) 

Mi d t (Bu-f t , Adr , 1 ) =Keyt 

Print At (70 , 2) ; " " ; Chrt (8) ; Chrt (8) ; Chrt (8) ; Adr ; 

Print At (Cx ,Cy) ; Key t ; 

Inc Cx 

I-f Int (Cx ) =72 
Cx =56 
I-f Cy<20 
Inc Cy 
Endi-f 

Print At(Cx,Cy); 

End i -f 
Endi -f 
I-f My >330 
Let Out= 1 
Endi-f 

Until Out=l 
Exit I-f Out=l 
Loop 
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Return 

Procedure Wandle 

For T=i To Len(Bu-fS) Step 16 
F'rlf=" " 

Pr 2$="" 

For X=0 To 15 

Mi*=Mid* (Bu-f* ,T+X, 1 ) 

H$=Hex$ (Asc (Mit) >+" " 

I-F Len (Hi') =2 

Pr 1 i=Pr 1 $■+ " 0 " +Hi' 

Else 

Pr 1 $=Pr 1 
Endi-f 

I-f Asc (Mi *>=>32 And Asc (Mi $ ) < = 128 
Pr2*=Pr2*+Mi* 

Else 

Pr2$=Pr2$+" . " 

Endi-f 
Ne;-; t X 

Bu$ (T/16) =Prl$+" "+Pr2$ 

Nex t T 
Return 

Procedure Read (Tra , Sec ) 

De-fmouse 2 

Fehl =Xbi os (8 , L: Varptr (Bu-f f ) , 

L: Fi , Dev , Sec , Tra , Si d , 1 ) 

Return 

Procedure Ulr i te (Tra , Sec ) 

De-fmouse 2 

Fehl=Xbios (9,L: Varptr (Bu-f$) ,L: 

Fi , Dev , Sec , Tra , Si d , 1 > 

De-fmouse 0 
Return 

Procedure Print 

Alert 1," Wirklich drucken ??" , 1 , " JA i 
NEIN " , Al 
I-f Al =1 

Lprint "Track: "+Stri : (Tra) + " Sektor : "+Str$ (Sec ) 
Lprint Stri ng$ (80 , ) 

For T=1 To 32 

Lprint Space$ (Tab) ; Bu:£ (T) 

Next T 
Endi-f 
Return 

Procedure Window ( X , V , H , B , Wi ni , Fl ag ) 

Y=Y/Res 
B=B/Res 
I-f Fl ag = l 

Dpoke Gi nt in, 320 
Dpoke Gintin+2, 200/Res 
Dpoke Gintin+4,50 
Dpoke Gi nt i n+6 , 50/Res 
Dpoke Gintin+S,X 
Dpoke Gintin+10,Y 
Dpoke Gintin+12,H 
Dpoke Gintin+14,B 


IS 




Gemsys 73 


Endi f 

Graphmode 1 
F'box X , Y , H+X , B+Y 
Graphmode 3 
F’box X , Y , H+X , B+Y 
Graph mode 1 

Box X+2 , Y+2 , H-2+X , B-2+Y 

F'box X+5, Y+B, X+H, (Y+B) +5/Res 

F’box X+H, Y+5,H+5+X , (B+Y)+5/Res 

Text X+ (H- (Len (Wi nl ) *16) ) /2, Y+20 , Win# 

Return 

F'rocedure Screen 
Restore 
Deffill 1,1,1 
F’box 0,0,6 39,399 
De-f-fill 1,2,4 
Pr box 0,0,639,399 
De-f-fill 1,1,1 

(IWi ndow (25,55, 585 , 275 , " , 1 ) 

@Wi ndow ( 25 , 5 , 585 , 40 , " " , 1 ) 

©Window (25,340,585,50, " " , 1 ) 

De-f text 1 , 0 , 0 , 4 
For T=1 To 14 
Read Tel*,Te2# 

Box (40*T> ,350, (40*T) +35,380 
Text ( 40*T ) +3 , 360 , Te 1 # 

Text (40*T> +3,370, Te2# 

Nex t T 

De-f text 1,0,2700,13 
Graphmode 2 

Text 619 , 40 , "Di skmon 1.0 written 1987 
by Jan Kubuschok" 

Return 

F’rocedure Update 

Print At (5,2) ;Space#<70> ; 

Fr int At (5 , 2) ; "Track : " ; Chr# (8) ; Chr# (8) ; Tra 

F'rint At ( 15 , 2) ; "Sector : " ; Sec 

F'rint At ( 26 , 2) ? "Si de: " ; Si d 

Print At (36,2) ; "Drive: " ; Dev 

F'ri nt At (46 , 2) ; "Status: " ; Fehl 

Print At (65,2) ; "Byte: "; Adr 

F'ri nt At (56 ,5) ; 

Return 

F'rocedure Abfrage 
Mause X , Y , K 
If Y<320 
Let Dut=l 
Endi f 

For T=1 To 14 

If XX40+T) And Y>350 And X<(40*T)+35 
And Y < 380 And K=1 
Graphmode 3 

F’box <40*T> ,350, ( 40+ T) +35 , 380 
©Mkey ( 0 ) 

F'box (40+T) ,350, (40*T ) +35 , 380 
Selected=T 
Graphmode 1 
Endi f 
Next T 
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Return 

F'rocedure Mkey(Flag) 

Repeat 

Until Mousek=F3. ag 
Return 

F'rocedure Asciihex 
Sx=0 
'SWand 1 e 
For T=0 To 15 

Print At ( 6 , 5+T ) ; But ( T +Sx ) 

Nex t T 
De-fmou.se 0 
Return 

F'rocedure Ch_drive 
Fl g=0 

De-ftext 1,0,0,13 
Graphmode 1 
Dr=Bi os ( 10) 

At=Bint(Dr) 

Z.= (640- < Len (At) -1 ) *30) /2 

Get Z-20-2, 120-2, Z+( (Len(A$) ) *30) +22, 257, Rettet 
De-f-fill 1,0,0 

Pb ok Z-20-2, 120-2, Z+ ( (Len (At) ) *30) +22,257 
De-f-fill 1,1,1 

Text (Z+Len (At) *30/2) - ( (Len ( "Drive" ) *8) /2) , 

160, "Drive" 

Text (Z+Len (At) *30/2) - ( (Len ( "Dri vet " ) *8) /2) , 140 
"Sei ec t" 

Box Z— 20 , 120, Z+ ( (Len (At) ) *30) +20,255 
Box Z+ (Len < At) *30/2) -30 , 220 , Z+60+ 

(Len (At) *30/2) -30 , 240 
Box Z+ (Len (At) *30/2) -30+1 ,220+1 , Z+60+ 

(Len (At) *30/2) -30-1 ,240-1 
Text (Z+Len (At) *30/2) -( (Len ( " OK " ) *8 ) /2) , 236 , " 
For T=0 To Len(At)— 1 
Bt=Midt (At,T, 1 ) 

I-f Bt=" 1 " 

Box Z+ (30*T) , 175, Z+25+ (30*T) ,200 
Text Z+8+ (30*T) , 1 94 , Chrt ( 65+T) 

Else 

Graphmode 3 
De-f-fill 1,3,1 

Pbox Z+(30*T) , 175, Z+25+ (30*T) ,200 
Text Z+8+ (30*T) , 1 94 , Chrt (65+T) 

Graphmode 1 
Endi -f 
Next T 

De-f-fill 1,1,1 
Graphmode 3 
T=Gemdos (8<H19) 

Pbox Z+(30*T) , 175,2+25+ (30*T) ,200 
Do 

Mouse X , Y , K 
I-f K=1 

Mouse X , Y , K 

For T=0 To Len(At)— 1 

I-f X >Z+ (30*T) And X< Z+25+ (30*T) 

And Y>175 And Y<200 
And Mi dt ( At , T , 1 ) = " 1 " 

Pbox Z+(30*T> , 175, Z+25+ (30*T) ,200 


OK " 
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©Mkey (0) 

T 1 =T 

T =Gemdos ( ?<H 1 9 ) 

F'box Z+(30*T) , 175, Z+25+ (30*T) ,200 
Dev=Tl 

Void Gemdos (S<HE , TI ) 

Endi -f 
Nex t T 

I-f X>Z+ (Len (AS) *30/2) -30+1 

And Y >220+1 And X<Z+60+ (Len (AS) *30/2) -30-1 
And Y< 240-1 
Graphmade 3 

Pb ox Z+ (Len (AS) *30/2) -30+1 , 

220+ 1 , Z+60+ ( Len (AS) *30/2) -30-1 ,240-1 
©Mkey (0) 

Pb om Z+ (Len (AS) *30/2) -30+1 , 

220+1 , Z+60+ (Len (AS) *30/2) -30-1 , 240-1 
Fl g = 1 
Endif 
Endi -f 

Exit I-F Fl g = l 
Loop 
©Update 

Put 1—2.2. ,118, RetteS 
Return 

F'rocedure Wandl ehex (WS) 

Local A,T,Z 

Dez =0 

Z=0 

For T=1 To 0 Step -1 
Inc Z 

A=Asc (MidS(WS,Z, 1) ) 

I-f A>47 And A<58 

Dez=Dez+Val (Mi dS ( WS , Z , 1 ) )*16 A T 
Else 

Dez =Dez + ( Asc (MidS(WS,Z, 1) ) -55) *16'T 
Endi-f 
Nex t T 
Return 

F'rocedure Ex i t 

Alert 1," Abbruch ?? " , 1 , " JA ! NEIN " ,A1 
I-f Al =1 
End 
End i -f 
Return 

Data Track, + , Track, - , Sek , 

+ , Sek , - ,Write, Sec ,Side, 

0 ,Side, 1 , Boot , Sek , Set, 

T&S , Dr i ve , , Su- , eben , 

Format , Track , Pr i nt , Sec, Ex i t , 
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Vokabel-Champ 1.0 

MENÜPUNKTE: 

- Abfragen 

(Vokabel-Bedeutung) 

(Bedeutung-Vokabel) 

Mit der Variablen OFT kann eingestellt werden, wie 
oft eine Vokabel richtig (in allen Bedeutungen) ge- 
wußt werden muß. 

(Siehe auch Parameter) 

Im Fenster steht dann: 

- Vers, für Anzahl der Versuche 

- Bed. für Anzahl der Bedeutungen 

- Gew. für Anzahl der richtigen Eingaben 

- Oft. für wie oft die Vok. schon gewußt wurde 
Mit UNDO kann dieser Menüpunkt abgebrochen 
werden. 


gezeigt, mit der rechten kann dieser Menüpunkt ver- 
lassen werden. 

— Editieren 

Hier können die Vokabeln verbessert werden. 
Zunächst fragt das Programm nach der zu verbessern- 
den Vokabel. 

Alles weitere läuft wie bei der Vokabeleingabe. 

— Suchen 

Hier kann nach der Bedeutung oder nach der Vokabel 
gesucht werden. 

Prinzipiell alle Vokabeln, die mit der eingegebenen 
Zeichenkette beginnen. Es muß nicht auf Groß- und 
Kleinschreibung geachtet werden. 

— Exit 

Programm verlassen 



Vokabel-Chanp 
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Vers. :i 
Gew. :Q 

Vokabel : tabula 
Bedeutung ! Tisch 


Vokabeln abfragen 






Statistik 


WM 1 


• $• 

S™«? v 3 

L 

llSi 


P-ar-a^e ter 


lö sc p.en 


Jjsä 

ili 

i 
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- Eingeben 

Hier können die Vokabeln eingegeben werden, wobei 
zuerst nach der Vokabel gefragt wird und dann nach 
den Bedeutungen. Es sind maximal fünf Bedeutungen 
möglich. Wird eine Bedeutung ohne eine Eingabe abge- 
schlossen (Return) geht das Programm davon aus, daß 
keine weiteren Bedeutungen eingegeben werden 
wollen. 

Es erscheint dann eine kleine BOX und es kann nun 
die Eingabe bestätigt werden. 

Mit UNDO kann dieser Menüpunkt abgebrochen 
werden. 

— Ansehen 

Es werden alle Vokabeln und deren Bedeutungen ange- 
zeigt 

Nach jeder Vokabel wartet das Programm auf eine der 
beiden Maus-Tasten. 

Mit der linken Maustaste wird die nächste Vokabel an- 


— Laden 

Vokabeln in den Speicher laden 

— Speichern 

Vokabeln im Speicher speichern 

— Ausdrucken 

Die Vokabeln werden auf dem Drucker ausgegeben. 

— Statistik 

Eine kleine Statistik wird angezeigt. 

___ p3ra m et 8r 

Es kann eingestellt werden, wie oft eine Vokabel ge- 
wußt werden muß. 

— Löschen 

Der Vokabelspeicher wird gelöscht. 
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On Error Gosub Fehler 
Dim Vok$ (1000 , 5) 

Dim Vok (1000) 

Revon$=Chr$ (27 ) +"p" 

Revof f $=Chr$ ( 27 ) +"q” 

Of t=3 
@Screen 

l 

' main job 
@Main 

Procedure Main 
Selected=0 
Sput Screen$ 

Do 

Repeat 

@Watch_menue 

©Clock 

Until SelectedOO 

On Selected-1 Gosub Abfragen , Eingeben, 

Ansehen , Editieren , Suchen , Exi t , 

Load_all , Save_all , Drucken, 

Statistik, Parameter , Losch 

©Mkey (0) 

Sput ScreenS 
Selected=0 
Graphmode 3 
Loop 
Return 

t 

' Vokabel Routinen : 

• 

’ ABFRAGEN 

t 

Procedure Abfragen 
Arrayfill Vok ( ) , 0 
Gewusst=0 
@Pruef 

@Window (120,120,400,250, "Vokabeln abf ragen" , 1 ) 

Alert 1 , "Vokabel ==> Bedeutung j 

oder I Bedeutung ==> Vokabel " , 1 , "Vo > BeSBe > Vo",Al 
On Al Gosub Abf ragenl , Abf ragen2 

Return 

Procedure Abfragenl 
Zae=0 
Do 

Flag=0 

Repeat 

Zu=Random (Vok) 

If Vok (Zu) =0f t 
Flag=0 
Else 

Inc Zae 
Flag=l 
Endif 
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Until Flag=l 
Graphmode 1 
Deffill 0 

Pbox 240,146/Res, 450, 350/Res 
Deffill 1 
Bedeut=0 
For T=1 To 5 

If Len ( Vok$ ( Zu , T) ) >1 
Inc Bedeut 
Endif 
Next T 

Print At (18,9) ; "Vers . : " Zae 
Print At (18,11) ;"Gew. :";Gewusst 
Print At (58 , 11) ; "Oft. : " ; Vok (Zu) 

Print At (58,9) ;"Bed. :";Bedeut 

Print At (20,13) ; "Vokabel : ";Vok$(Zu,0) 

For Be=l To Bedeut 

Print At (20 , 15) ; "Bedeutung : 

@Input (32,15,20," ") 

Bedeutung$=Upper$ ( B$ ) 

Flag=0 

For T=1 To Bedeut 

If Bedeutung$=Upper$ (Vok$ (Zu,T) ) 

And Not Bedeutung$=" " 

Flag=l 
Gf lag=l 

Print At ( 32 , 16+T) ; Vok$ ( Zu , T) 

Endif 
Next T 
If Flag=0 

If Vok (Zu) <>0 
Dec Vok (Zu) 

Endif 

For T=1 To Bedeut 
Print Revon$; 

Print At (32 , 16+T) ; Vok$ (Zu, T) 

+Space$ (20-Len (Vok$ (Zu,T) ) ) 

Print RevoffS; 

Next T 
Be=Bedeut 
Else 

Inc Vok (Zu) 

If Vok (Zu) =Of t 
Inc Oftgew 
Endif 
Endif 
Next Be 
If Flag=l 
Gflag=0 
Inc Gewusst 
Endif 
Repeat 

Until Inkey$=Chr$ ( 13 ) 

Exit If Oftgew=>Vok 
Loop 
Return 

Procedure Abfragen2 
Zae=0 
Do 

Flag=0 
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Repeat 

Zu=Random (Vok) 

If Vok ( Zu) =0f t 
Flag=0 
Else 

Inc Zae 
Flag=l 
Endif 

Until Flag=l 
Bedeut=0 
For T=1 To 5 

If Len ( Vok$ (Zu , T) ) >1 
Inc Bedeut 
Endif 
Next T 

Zu2=Random (Bedeut-1 ) +1 
Graphinode 1 
Deffill 0 

Pbox 240,146/Res, 450,350/Res 

Deffill 1 

Bedeut=0 

Print At(18,9) ; " Vers. : " ; Zae 
Print At (18 , 11) ; "Gew. : " ?Gewusst 
Print At (58,11) ;"Oft. :";Vok(Zu) 

Print At (20, 13) ; "Bedeutung : " ; Vok$ (Zu, Zu2) 
Print At (20 , 15) ; "Vokabel : " ; 

Olnput (32,15,20,"") 

Bedeutung$=Upper$ (B$) 

Flag=0 

If Bedeutung$=Upper$ (Vok$ (Zu, 0) ) 

And Not Bedeutung$=" " 

Flag=l 
Gf lag=l 

Print At ( 32 , 17 ); "Richtig" 

Endif 
If Flag=0 

If Vok (Zu) <>0 
Dec Vok ( Zu) 

Endif 

Print At (32 , 17 ); "Falsch" 

Be=Bedeut 

Else 

Inc Vok (Zu) 

If Vok (Zu) =Of t 
Inc Oftgew 
Endif 
Endif 

If Gflag=l 
Gf lag=0 
Inc Gewusst 
Endif 
Repeat 

Until Inkey$=Chr$ (13) 

Exit If Oftgew=>Vok 
Loop 

Return 

» 

’ EINGEB'EN 

f 

Procedure Eingeben 
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@Window (120 , 120,400 , 200 , "Vokabeln eingeben" , 1) 
Do 

Deffill 0 

Pbox 150 , 192/Res , 450 , 300/Res 

Deffill 1 

Repeat 

Print At (20 , 9) ;Fre (0) 

Print At (20, 11 )? "Vokabel : SpaceS (20) 

@Input (30,11,20,"") 

VokS (Vok , 0 ) =B$ 

For T=1 To 5 

Print At (20, 12+T) ; "Bedeutung #" ; 

Str$(T);" : ”;Space$(20) 

«Input (35, 12+T, 20," ") 

VokS (Vok , T) =B$ 

If Len (VokS (Vok, T) ) =«0 
T=5 
Endif 
Next T 
«Allesok 
Until Flag=2 
Inc Vok 

Exit If VokS ( Vok-1 , 0 ) =" " 

Loop 
Dec Vok 
Sput ScreenS 
Return 


• ANSEHEN 


Procedure Ansehen 
«Pruef 

«Window (120 , 120 , 400 , 210 , "Vokabeln" , 1 ) 
For T=0 To Vok-1 
For X=0 To 5 
If X>0 
Tab=100 
Else 
Tab=0 
Endif 

Text 130+Tab, 300/Res, VokS (T,X) 
Get 122 , 190/Res, 400, 320/Res, AS 
Put 122, (190-16) /Res ,A$ 

Next X 
Repeat 

Until MousekOO 
If Mousek=2 
T*Vok 
Endif 
Next T 
Return 


• EDITIREN 
Procedure Editieren 

«Pruef . . „ , . 

«Window (120, 120, 400, 210, "Vokabeln Editieren ,1) 

Flag=0 

Vvok ! =Vok 

Print At (20,9) ? 
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HIIHI 


fnanBBH 



mmm istingb 


” Bitte zu editierende Vokabel eingeben !" 
Repeat 

•Input (25, 11,20,"") 

E$=B$ 

Until E$ < > " " 

For T=0 To Vok 

If Instr (ES,Vok$ (T,0) ) >0 
Evok=T 
Af lag=l 
Endif 
Next T 
If Aflag-1 
Repeat 

Print At (20,12) ; "Vokabel : " ; Space$ ( 20 ) 
©Input (30 , 13 , 20 , Vok$ (Evok, 0) ) 

Vok$ (Evok, 0) =B$ 

For T=1 To 5 

Print At (20, 14+T) ; "Bedeutung #"; 

Str$(T);" : SpaceS (20) 

@lnput (35, 14+T, 20 , Vok$ (Evok,T) ) 

Vok$ ( Evok , T ) =B$ 

If Len ( Vok$ (Evok, T) ) =0 
For L=T To 5 

Vok$ (Evok , L) =" " 

Next L 
T=5 
Endif 
Next T 
©Allesok 
Until Flag=2 
Else 

Alert l,"Kann diese Vokabel nicht finden 
j >>"+E$+"<<" , 1, " OK ", Dummy 
Endif 
Af lag=0 

Return 

» 

• SUCHEN 


Procedure Suchen 
@Pruef 

@Window(120, 120, 400,250, "Vokabeln Suchen", 1) 
Print At (20 v 11) ; " Bitte zu suchende 
Vokabel eingeben" 

Do 

Print At (20 , 13) ; "Vokabel : . 

Repeat 

@Input (30,13,20," ") 

Until B S < > " " 

Su$=B$ 

For Z=0 To Vok 
For Tt=0 To 5 

If UpperS (LeftS (Vok$ (Z,Tt) , 

Len(SuS) ) )=Upper$ (Su$) 

Zei=0 

For T=0 To 5 

Print At ( 32 , 15+Zei ) ; Vok$ ( Z , T) 
+Space$(20-Len(Vok$(Z,T) ) ) 

Inc Zei 
If T=0 
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Ine Zei 
Endi-f 
Nex t T 

Print At (35 , 15+Zei ) ; " > 
Repeat 

Until Inkey$=Chr$ ( 13) 
r Repeat 

Until Inkey$= M " 

Frint At (35, 15+Zei ); “ 
Endi-f 
Nex t T t 
Nex t Z 
Loop 
Return 

'ABSPEICHERN 

9 

Procedure Save_al 1 
@Prue-f 

Fi VOK" 

Fi 1 eselect Fi 1 e$ , “ M ,Fi 1 e* 

1+ Fi le$< >" 11 
DeT mouse 2 
Open i, 0 ,, 1 #i f File* 

For T=0 To Vok 

Text 13 , 20 , Str$ ( Vok— T) 

For A=0 To 5 

Print #1 , Vok$ (T , A) 

Next A 
Nex t T 
Close #1 
De-f mouse 0 
Endi-f 

Return 

# 

'LADEN 

9 

Procedure Load_al 1 
Graphmode 1 

T— — 1 

Fi lef="\*. VOK" 

Fileselect Fi 1 e$ , “ " , Fi 1 e$ 

I-f Ex i st (Fi le$) =— 1 
Defmouse 2 
Open "I" ,#1 »File# 

• Repeat 
Inc T 

Text 13 , 20/Res, Str# (T) 

For A=0 To 5 

Line Input #1 , Vok$ (T , A) 
Next A 

Until Eot (#1 ) < >0 
Vok=T 
Close #1 
De-f mouse 0 
Endi-f 
Return 

9 

' DRUCKEN 


RETURN <“ 


II 



ATARI SPECIAL 

baut seine Redaktion aus! 

Dazu suchen wir noch einige 


FREIE MITARBEITER 

Sind Sie mit dem ST und seiner 
Peripherie vertraut, können Sie 
darüber schreiben, Ihre Erfah- 
rungen, Ihr Wissen weitergeben? 
Trauen Sie sich zu, Software- 
Pakete zu testen? Beherrschen 
Sie mindestens eine Program- 
miersprache perfekt? 

Dann melden Sie sich bei uns. 

Bitte nur schriftlich! 

Richten sie Ihre Kurzbewerbung 
an ATARI SPECIAL 
Heßstraße 90, 8000 München 40, 
Personalabteiluna 
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Procedure Drucken 

Alert 1, "Wirklich alle i Vokabeln ausdrucken ", 

1," NEIN S JA " , Al 
If Al=2 

X%=Gemdos (17) ! 

Wenn kein Drucker angeschlossen bzw OFF LINE X%=0 
If X%=0 

Alert 1," KEIN Drucker angeschlossen | 
bzw. OFF LINE ", 1 , " OK ",A1 
©Main 
Endif 

Defmouse 2 

Lprint Chr$ (27) +"M" ;Chr$ (27) +"R"+Chr$ (2) ; 

For T=0 To Vok 
Lprint Vok$(T,0) 

For X=1 To 5 

If Len ( Vok$ (T,X) ) >1 

Lprint Space$ ( (25) ;Vok$ (T,X) 

Endif 
Next X 
If Mousek=2 
T=Vok 
Endif 
Next T 
Defmouse 0 
Endif 
Return 

’ PARAMETER 

l 

Procedure Parameter 

©Window (120, 120, 400,200, "Prameter", 1) 

Print At (18 , 11) ; 

"Wie oft muß eine Vokabel gewusst werden : " 
Repeat 

©Input (60,ll,2,Str$(Oft) ) 

Until Val (BS) >0 
Of t=Val (B$) 

Return 

t 

* BILDSCHIRMAUFBAU 

Procedure Screen 
If Xbios(4)=i 
Res=2 
Else 
Res=l 
Endif 
Restore 

Pbox 0, 0, 639, 399/Res 
Deftext 1,0, 0,4 
Deffill 1,2,4 
Prbox 0,0,639,399/Res 
Deffill 1,0,0 
For T=2 To 7 

Pbox 10, (T*45) /Res , 80 , (T* 45+40 ) /Res 
Read A$ 

Text 15, (T*45+22) /Res ,A$ 

Pbox 560, (T*45 ) /Res , 630 , (T* 45+40 ) /Res 
Read A$ 
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Text 565, (T*45+22) /Res , AS 
Next T 

Pbox 560 , 4 /Res , 630 , 24 /Res . 
Pbox 10, 4/Res, 80, 24/Res 
Pbox 10 , 40/Res , 630 , 80/Res 
Deftext 1,0,0,13/Res 
Text 163,65/Res, "Vokabel-Champ 
(c) 1987 by Jan Kubuschok" 

Deffill 1,1,1 
Graphmode 3 
Sget ScreenS 
Return 


' MENUEABFRAGE 



ATARi 

Hotline 

Dienstags 

15.00-19.00 Uhr 
Tel. 089/1298013 


Procedure Watch_menue 
Mouse X,Y,K 
If K=1 

If (X>10 And X< 80 ) Or (X>560 And X<630) 

For T=2 To 7 

If Y> (T*45) /Res And Y< (T*45+40 ) /Res 
If X> 560 

Pbox 560, (T*45) /Res , 630 , (T* 45+40 ) /Res 
@Mkey (0) 

Pbox 560, (T*45) /Res , 630 , (T* 45+40 ) /Res 
Selected=T+6 
Else 

Pbox 10, (T*45) /Res , 80 , (T* 45+40 ) /Res 
@Mkey (0) 

Pbox 10 , (T* 45 ) /Res , 80 , (T* 45+40) /Res 
Selected=T 
Endif 
Endif 
Next T 
Endif 
Endif 
Return 


• UHRZEIT&VOKABEL ANZAHL 

Procedure Clock 
If TimeSOTiS 

Deftext 1,0,0,13/Res 

Graphmode 1 

Text 563 , 20/Res , Time$ 

Text 13 , 20/Res , Vok 
Ti$=Time$ 

Graphmode 3 
Endif 

Return 

t 

'WARTEN BIS MOUSEK = FLAG 

Procedure Mkey(Flag) 

Repeat 

Until Mousek=Flag 

Return 

t 

' WINDOW 


28 



HLISTINGH 


x=X-Koordinate 

y=Y-Koordinate 

h=Höhe 

b=Breite 

win$=Text 

f lag=Springbox ein oder aus (0,1) 


Procedure Window (X , Y , H , B , Win$ , Flag ) 

Y=Y/Res 
B=B/Res 
If Flag=l 

■ Dpoke Gintin,640 

Dpoke Gintin+2 , 400/Res 
Dpoke Gintin+4,50 
Dpoke Gintin+6 , 50/Res 
Dpoke Gintin+8,X 
Dpoke Gintin+10,Y 
Dpoke Gintin+12,H 
Dpoke Gintin+14,B 
Gemsys 73 
Endif 

Graphmode 1 
Pbox X , Y, H+X , B+Y 
Graphmode 3 
Pbox X , Y , H+X , B+Y 
Graphmode 1 

Box X+2 , Y+2 , H-2+X , B-2+Y 

Pbox X+5,Y+B,X+H, (Y+B)+5/Res 

Pbox X+H , Y+5 , H+5+X , (B+Y)+5/Res 

Text X+ (H- (Len (Win$ ) *16) ) ,Y+(20/Res) ,Win$ 

Return 

I 

•ALLES OK 


Procedure Allesok 
Graphmode 1 
Flag=0 

Get 198 , 348/Res, 442, 392/Res , BlockS 
Deffill 1,0 

Pbox 198, 348/Res, 442, 392/Res 
Text 237 , 376/Res , " NEIN" 

Text 327,376/Res, " JA" 

Box 230, 360/Res, 310, 380/Res 

Box 320 , 360/Res , 410 , 380/Res 

Box 320-1, 360-1/Res, 410+1, 380+1/Res 

Box 200, 350/Res, 440, 390/Res 

Deffill 1,1,1 

Graphmode 3 

Do 

Mouse X , Y , K 

If X> 230 And Y>360/Res And X<310 
And Y<380/Res And K=1 
Pbox 230, 360/Res, 310, 380/Res 
@Mkey(0) 

Pbox 230 , 360/Res , 310 , 380/Res 
Flag=l 
Endif 

If (X>320‘ And Y>360/Res And X<410 

And Y < 3 80/Res And K=l) Or Inkey$=Chr$ ( 13 ) 
Pbox 320,360/Res, 410, 380/Res 
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@Mkey ( 0 ) 

Pbox 320, 360/Res, 410, 380/Res 
Flag=2 
Endif 

Exit If Flag=l Or Flag=2 
Loop 

Graphmode 1 

Put 198 , 348/Res , BlockS 
Return 

t 

' D A T A S 

• . t. 

Data " Abfragen"," Laden"," Eingeben", 

Speichern , " Ansehen" , Ausdrucken , 

"Editieren" , "Statistik" , " Suchen" , 

"Parameter"," E X I T" , ", Löschen 

’ LOESCHEN 

Procedure Losch 

Alert 1, "Wirklich alle j Vokabeln löschen", 

1," NEIN | JA " , Al 

If Al=2 
Run 
Endif 
Return 

i 

' P R U E F 
» 

Procedure Pruef 
If Vok=0 

Alert 3," STOP: | \ Keine Vokabeln im 

Speicher ", 1 , " Na klar ", Dummy 

@Main 

Endif 

Return 

l 

' STATISTIK 

I 

Procedure Statistik 
@Pruef 
Gewl=0 
Gew2=0 
Gew3=0 
If Zae=0 

Alert 1," Es wurde noch nicht ausgefragt, 

! somit kann noch keine j Statistik erstellt werden 
" , 1 , " OK ", Al 
@Main 
Endif . 

©Window (120 ,120,400,210, "Statistik" , 1 ) 

For T=0 To Vok 
If Vok (TT) =1 
Inc Gewi 
Endif 
Next T 

For T=0 To Vok 
If Vok (T ) —2 
Inc Gew2 
Endif 
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Next T 

For T=0 To Vok 
If Vok (T) =3 
Inc Gew3 
Endif 
Next T 

Gewl= (Gewl/Vok) *3600 
Gew2= (Gew2/Vok) *3600 
Gew3=(Gew3/Vok) *3600 
Deffill 1,2,5 

Pcircle 320 , 200/Res , 50 , 0 , Gewi 
Pcircle 200 , 200/Res , 50 , 0 , Gew2 
Pcircle 440 , 200/Res , 50 , 0 , Gew3 
Pbox 150, 300/Res, 180, 310/Res 
Deffill 1,2,7 

Pcircle 320 , 200/Res , 50 , Gewi , 3600 
Pcircle 200 , 200/Res , 50 , Gew2 , 3600 
Pcircle 440 , 200/Res , 50 , Gew3 , 3600 

Text 270,270/Res, "lx Gewußt "+Str$ (Int (Gewl/36) ) +"%" 
Text 150,270/Res, "2x Gewußt "+Str$ ( Int (Gew2/36 ) ) +"%" 
Text 390,270/Res, "3x Gewußt "+Str$ ( Int (Gew3/36) ) +"%" 
Text 190, 310/Res, "Gewußte Vokabeln" 

Deffill 1,1,1 
@Mkey ( 1 ) 

Return 

’ EIGENE INPUT ROUTINE 
* AUFRUFEN MIT : @INPUT ( ZEILE , SPALTE , 

' MAX. LAENGE, STRINGS) 

B$ enthält dann den eingegebenen String 


Procedure Input ( Spalte% , Zeile% , Max, In$) 

Hidem 

Void Xbios (21,2) 

Print At ( Spal te% , Zeile% ) ; Chr$ ( 27 ) +"e" ; In$ ; 
Print At ( Spalte% , Zeile%) ; 

B$ = " " 

B$=In$+Space$ (Max-Len ( In$ ) ) 

Zaehler%=0 

Do 

@Clock 

A$=Inkey$ 

A=Asc (AS) 

B=Asc (Mid$ (AS ,2,1) ) 

If (A>31 And A<160 And Zaehler%<Max) 

And Not A=127 
Inc Zaehler% 

MidS(BS,Zaehler%,l)=A$ 

Print At ( Spalte%+Zaehler%-1 , Zeile%) ;A$; 
Endif 
If A=27 

BS=Space$ (27) 

Print At(Spalte%,Zeile%) ; Lef t$ (BS , Max) ; 
Print At ( Spalte% , Zeile% ) ; 

Zaehler%=0 

Endif 

If A=8 And Zaehler%>=l 
Dec Zaehler% 

Print ChrS (27) +"D" ; 
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Mid$ (B$ , Zaehler%+1 , 1) =" 

Print Chr S ( 27 ) +" j " ; 

Print At (Spalte* , Zeile*) ; Lef t$ (B$ , Max) 
Print ChrS (27 ) + "k" ; 

Endif 
I f B = 8 2 

BS=Mid$ (B$,l,Zaehler%)+" " 

+Mid$ (B$ , Zaehler%+1 , Max-1 ) 

Print ChrS ( 27 ) +" j " ; 

Print At ( Spalte* , Zeile* ) ; Lef t$ (BS »Max) 
Print ChrS < 27 ) + ”k " ; 

Endif 

If B=77 And Zaehler*<Max 
Print ChrS ( 27 ) +''C" ; 

Inc Zaehler* 

Endif 

If B=7 5 And Zaehler*=>l 
Print ChrS ( 27 ) +'’D" ; 

Dec Zaehler* 

Endif 

Exit If A=13 Or B=97 
Loop 

Print ChrS (27 ) +”f ’’ ; 

Showm 
If B<>97 
Repeat 
Dec Max 

Until Mid$ (B$ ,Max r 1) <>" " Or Max=0 
B$=Left$ (BS , Max) 

Else 

@Main 

Endif 

Return 

I 

•EXIT 
Procedure Exit 

Alert 1, "Wircklich abbrechen NEIN 

If Al=2 
Edit 
Endif 
Return 

•FEHLER 

Procedure Fehler 
If Err=16 

Alert 1,” Kann keine Vokabeln mehr i 
aufnehmen, i Bis zu 1000 Vokabeln 
S möglich. H ,l," OK ", Dummy 
Close #1 
@Main 
Endif 
Return 


LISTINGSi 


Problemlose Tastatur Umbelegung 


Wollten Sie nicht schon 
immer die Tastatur Ihres 
ST's umbelegen, um z.B. 
den 10er Block als Hex- 
Tastatur benutzen zu 
können? 

Dieses Programm gibt Ih- 
nen nun die Möglichkeit, 
Ihre Tastatur so zu bele- 
gen, wie Sie es wünschen. 
Mit dem kleinen Hilfspro- 
gramm können Sie dann, 
nachdem Sie das Pro- 
gramm compiliert haben, 
im Auto-Ordner die geän- 
derte Tastaturbelegung 
einladen. Die geänderte 
Belegung wird z.B. von 
IST WORD oder ande- 
ren Tex t ver arb ei t u ngs - 
Programmen genutzt. 

Die Belegung wird immer 


dann zerstört, wenn ein 
XBIOS(24) aufgerufen 
wird oder der Bereich 
oberhalb des VIDEO- 
RAMS ( > Xbios(2)+ 
3128) überschrieben wird. 
Es empfiehlt sich auch 
ein Programm, in dem 
nur ein xbios(24) aufge- 
rufen wird, anzulegen, da 
mit der Tastatur nicht 
mehr viel zu machen ist, 
wenn die Umbelegungsta- 
belle zuerstört wird. 
Nach Xbios(24) ist wie- 
der die ganz normale ST 
.Tastaturbelegung, wie Sie 
sie schon immer gewohnt 
waren, vorhanden. 

Nun noch etwas näher 
zu den beiden Program- 
men: 


Mit dem ersten Pro- 
gramm (KEY-CHANGE), 
eigentlich das Hauptpro- 
gramm, können Sie Ihre 
Tastatur beliebig abän- 
dern. Drücken Sie zuerst 
die entsprechende Taste, 
um den Scan-Code zu er- 
halten. Dabei kann auch 
gleichzeitig SHIFT oder 
CAPSLOCK gedrückt 
bzw. aktiviert sein. Nun 
können Sie aus dem 
Rechteck mit dem Zei- 
chensatz das gewünschte 
Zeichen auswählen. Wäh- 
rend dieser Auswahl ist 
auch das Pull-Down-Me- 
nue aktiviert. Sie kön- 
nen nun die Belegung ab- 
speichem oder laden, die 
Belegung wieder rück- 


gängig machen und 
schließlich auch das Pro- 
gramm verlassen. 

Mit dem zweiten Pro- 
gramm (BLOAD), kön- 
nen Sie eine erstellte Ta- 
staturtabelle laden, dabei 
muß die zu ladende Ta- 
belle BELEGUNG. KEY 
heißen. Dieses Programm 
arbeitet im 640x400 Pi- 
xel Modus. Leute mit 
Farbmonitor können sich 
ja bei einem Bekannten 
eine Tabelle erstellen und 
diese dann mit dem In- 
stallationsprogramm (un- 
abhängig von der Auflö- 
sung) auf ihrem ST in- 
stallieren. 

jk 



Die aktuelle Belegung der ST-Tastatur 
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©Screen 

f 

' Pull- Down Menue 

D i m E i n t r a g $ ( 2 0 ) 

For I%-0 To 20 

Read E i n t r a g $ f 1 %) 
Next 1% 

Menu E i n t r o g $ ( ) 
ün Menu Gosub Action 


On Break Gosub Fine 

r 

9 CopsLock Taste au esc holten 

f 

Void Bios( 1 1 , B i o s ( 11,-1) And GHEF) 

f 

9 ASCII-Feld oufbauen 
/ 

©Show 

/ 

' Anfangsadresse der Belegungstabelle holen 

' und Buffer vorbereiten 
/ 

Po in ter%-Xbios( 1 6 , L ; - 1 , L ; - 1 , L ; - 1 ) 

Dim Buf %( 96) 

Buf % = Var p t r( Buf%( 0) ) 

Bmove Lpeekf Pointer %) } Buf %, 128 
Bmove Lpeekf Pointer°/o + 4 ) , Buf %+ 1 28 , 128 
Bmove Lpeekf Pointer%+8) ,Buf%+256, 128 

f 

9 MAIN 


Def text 1,2,0,13 

Text 24 ,14, " DESK BELEGUNG” 

Graphmode 1 

Put 55, 183, Zeichens 

Deftext 1,0, 0,4 

Text 400, 8, "Scancode 

Scancode-0 

© G e t __s c a n __c o d e 

Graphmode 1 

Text 4?0,8,Str$( Scancode) +" 

Text 400, 16, "ASCII-Code : 

Asciicode-0 

Deftext 1,0,0,13 

Text 24 , 14, "DESK BELEGUNG" 

@Get_ascii_code 
Graphmode 1 
Deftext 1,0, 0,4 

Text 470, 16, StrSf Asciicode) + " 

Poke Buf%+Scancode, Asciicode 

Void Xbiosf 1 6 , L : Buf % , L : Buf %+ 1 28 , L : öuf %+256) 
Loop 
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Un t e r p rog ramme 


' Zeigt Belegung 

r 

Procedure Zeige 
Deftext 1,0, 0,6 
Sget Screen$ 

CI s 
X-0 

Y = 0 

For T*0 To 12? 

Inc Y 

Text X*200,Y*6," Scancode ;"+Str$(T) + 
" ASCII ; "+Str$( Peek( Buf%+T) ) 

If T=40 Or T-61 
Inc X 

Y = 0 
End if 

Ne x t T 

Print At( 15, 23) ; "Ohne Shift >Taste< 

Void Inp( 2) 

Cls 

X-0 

Y = 0 

For T = 1 28 To 256 
Inc Y 

Text- X*200, Y*6, ” Scancode ;"+6tr$(T) + 
" ASCII ; ”+Str$( PeeK( Buf %+T) ) 

If T-40+ 128 Or T-81+128 
Inc X 

Y = 0 
Endif 

N e x t T 

Print At( 15,23) ; "mit Shift >Taste< 

Void Inp( 2) 

X-0 

Y = 0 
Cls 

For T — 2 5 6 To 256+128 
Inc Y 

Text X^200,Y*8," Scancode ;"+Str$(T)+ 
" ASCII: " + S t r $ ( PeeK( B u f % + T ) .) 

If T =40 +256 Or T-81+256 
Inc X 

Y = 0 
Endif 

Ne x t T 

Print At ( 1 5 , 23) ; "CapsLock >Taste 

Void Inp(2) 

Sput Screen$ 

Return 

/ 

' Zeigt ASCII Feld 
/ 

Procedure Show 

Deftext 1,0,0,13 
Graphmode 1 
A = 0 

Def f il 1 1,0,0 



■ USTINGSHHB 


Pbox 52,160,571, 347 
Box 53,161, 570 , 346 
For Y = 0 To 7 
For X=0 To 31 
Inc A 

Text X* 1 6 + 60 , Y *20 + 200 , Chr$( A) 

Box X* 16 + 60-2 , Y *20 + 202 , X* 1 6 + 70, Y*20+1 65 
N e x t. X 
N e x t V 

Ge t 55 , 1 63 , 560 , 344 , Zeichen $ 

Return 

r 

' Schaltet Rahmen bei Box 
' Circle , Ellipse usw. aus (0.) 

' b z w . ein i. 1 i 

p 

Procedure Umrandung (Flag) 

DpoKe Contrl+2,0 
D p o K e Contrl+6, 1 
DpoKe Contrl+12,2 
DpoKe Int in Fla g 
Vd i 5 y s 1 04 
Return 


' Holt den Scancode 
$ 

Procedure Get s een c o d e 

Qn Menu 

A=Bios( 2 , 2 ) ! Scancode 

Status-Biosi; 11 ,-D And (2 Or 16 ) 
If Statu 5-2 
Status * 1 
Endif 

I f Stot-us -16 
Stat us =2 
Endif 

I f Statusol And’ Statu s <>2 
Stat us = 0 
Endif 

Scancode*A/65535 And 255 
Scancode*Scancode + ( 128 --Status) 
Return 


' Holt ASCII Code 


Procedure Ge t _a sei i__code 
Gra p hmod e 3 
F 1 ag~0 

Put 55, 183, Zeichen? 

Do 

0 n Menu 

Mouse Mx , My , MK 
If MK - 1 


For Y%~0 To 7 
For X%- 0 To 31 

If Mx 1 6+60-2 And M.y<Y%*20 + 202 
And Mx <X%* 1 6 + 70 And My> Y%*20+ 1 85 
Put 55 , 1 83, Zeichen® 

Asciicode= Y%*32+X%+ 1 

Pbox X%* 1 6+60-2, Y%*20+202,X%* 16+70, Y%*20+ 185 
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Flag- 1 
Endif 

Exit If Flag-1 
Next X% 

Exit If Flag-1 
Next Y % 

Endif 

Exit If Flag-1 Or K-2 
Loop 
Re t urn 

' Programmende 
/ 

Procedure Fine 

Alert 1 , “restore 77”, 1,” Ja | Nein ”,A1 
If Al-1 

Void Xbios(24) 

Endif 
Edi t 
Return 

f 

' Bildschirmaufbau 

r 

Procedure Screen 
Def text 1 ,0,0, 13 
S’Umrandungf 1 ) 

Deff ill 1,1,1 
Pbox 0,0, 639 , 399 
Deffill 1,2,4 
Prbox 0,0,639,399 
Graphmode 2 
Text 170,380,” 

Return 

r 

' Pull-Üown-Menue 77 

Procedure Action 
If Menu( 0) »14 
Void Xbios{24) 

Endif 

If Menu( 0) -16 
Gosub Zeige 
Endif 

If Menu( 0) -18 
Edi t 
Endif 

If MenuC 0) -12 
Gosub Laden 
Endif 

If Menuf 03-11 

Gosub Speichern 
Endif 

If Menu(0)-1 
Gosub Info 
Endif 

If Menuf 0) »22 ! MENÜ PUNKT 25 
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■ LISTINGS 


Menu Kill 
End 

Endif 

Menu Off 

Return 

/ 

' Laden 

r 

Procedure Loden 
F i 1 e $ = ” \ * . *" 

Filesei ec t F i 1 e $ , ** " , F i 1 e $ 

If E x i s t ( Fi 1 e $ ) - - 1 
Open H I ,File$ 

For T-0 To 96 

Input #1 * Buf %( T) 

Ne x t T 
Close # 1 

Void Xbiosf 1 6 , L ; Buf %, L ; Buf %+ 1 28 , L ; Buf%+256) 
Endif 
Return 

' Speichern 

Procedure Speichern 
F i 1 e $ “ n \ * ■. * ” 

Fileselect File$, M#, ,File$ 

If File$o ,,H 

Open "0" , #1 , File$ 

For T = 0 To 96 

Print # 1 , Buf %( T ) 

N e x t T 
Close # 1 
Endif 
Return 

Procedure Info 

Alert 0 , H ( C) 1 96? by | 

I Jan Kubuschok ” , 1 , " OK ",A1 

Return 

/ 

Datas für Pu 1 1 -Down-Menue 

f 

Data DESK, KeyChange 

Data 

Date 1 , 2 , 3 , 4 , 5 , 6 , M M 

Data BELEGUNG, Speichern , Laden , 

Data RESTORE , , Zeigen , 

Data ENDE f " " 

Data 


* 
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LISTINGSl 


' BLÜAD by Jan KubuschoK 


Start%=Xbios( 2 ) +32128 
File$="belegung . Key" 

Print Chr$( 2?) + M p M 
Print A t ( 1 , 1 ) ; ” 

KeyChange v 1 . 0 
Print Chr $ ( 27) + "q" 

Void Bios( 1 1 ,8ios( 11,-1.) And G H E F .) 

Poi n t er%“X.b i os( 1 6 , L ; - 1 , L : - 1 , L ; - 1 .) 
ü im Buf %( 96) 

Buf°/o=Värptr( Buf%( 0) ) 

Bmove Lpeekf PointerÄ.) , B u f % , 1 2 8 
Bmove Lpeekf Point er% + 4.) , B u f %+ 1 2 8 , 1 2 8 
Bmove Lpeekf Pointer%+8J ,Buf%+256,128 
If Exist-C F i 1 © $ ) -- 1 
Open M I ” , # 1 »FileS 
For T=0 To 96 

Input # 1 , Buf %( T) 

Ne x t T 
Close #1 

Bmove Buf%,Start%,384 

Void XbiosC 1 6 , L ; Start%, L ; Start%+ 1 26 , L ; Stort%+256) 
Print "Installiert !" 

Pause 10 
Else 
Print 

Print M Kann File nicht finden" 

Void XbiosC 24.) 

End 
End if 

Ex ec 0,File$,"" , " " 



' Mit PSAVE gespeicherte 
' Programm entschützen 
Do 

Alert 1 » " PSAVE Flag setzen oder 

| loschen 7 " , 3 , " 1 o sc he I se t z e i ABBRUCH " , A 1 
If Al 

Fileselect M \ * . B AS M , F i 1 e $ 

I f L e n ( F i 1 e S ) > 0 

Open "U M ,#1 , F i 1 e$ 

If A 1 = 1 
Out #1,0 
Endif 
If A 1 =2 

Out # 1 , G H F F 
Endif 
Close #1 
Endif 
Endif 

Exit If A 1 = 3 
Loop 
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■ TIPS & TRICKS 


ST 

am 




Nicht jeder hat das Geld, sich einen Farbmonitor zu 
kaufen, andererseits aber sind manche Games nur in 
Farbe überhaupt interessant. Unser Tip: Passen Sie 
Ihr Farb-TV an den Atari an! 

Der Atari ST verfügt über drei verschiedene Bild- 
schirmauflösungen. In der höchsten Auflösungsstufe, 
in der 640 * 400 Punkte in zwei Farben dargestellt 
werden, arbeiten die meisten kommerziellen Program- 
me (z.B. Textverarbeitung), da der für diesen Modus 
vorgesehene Monitor SM124 ein hervorragendes 
monochromes Bild liefert, das ein ermüdungsloses Ar- 
beiten am Computer gewährleistet. 

Die meisten Grafikprogramme und fast alle Spiele 
verwenden hingegen die beiden Farbmodi, in denen 
4 bzw. 16 Farben dargestellt werden können. Diese 
Bildschirmauflösungen kann man mit dem Schwarz- 
Weiß-Monitor nicht nutzen. Wenn man alle Darstel- 
lungsstufen benutzen wollte, müßte man sich also 
zwei Monitore zulegen, die zusammen rund 1500 DM 
kosten würden. Die große Mehrheit aller ST-Besitzer 
hat sich für den monochromen Monitor entschieden 
und ist nicht bereit, etwa 1000 DM für den Farbmoni- 
tor auszugeben. 

Es gibt jedoch eine recht preiswerte Möglichkeit, 
den heimischen Farbfernseher an den ST anzuschlie- 
ßen. Fast alle relativ neuen Geräte verfügen über einen 
sogenannten Scart- Anschluß. Dieser wird oft auch als 
„Euro-AV-Buchse“ bezeichnet und besitzt 21 Pole. 
Der Scart-Eingang eines Fernsehers wird unter ande- 
rem zum Anschluß von Videorekordem, HiFi- Anla- 
gen und — wie in unserem Fall — Computern benutzt. 

Um einen Atari ST mit Hilfe dieser Buchse an den 
Fernseher anzuschließen, benötigt man nur noch ein 
sogenanntes Scart-Kabel, das bei vielen Atari-Fach- 
händlem für weniger als 100 DM erhältlich ist. 

Eine weitere Möglichkeit bieten HF-Modulatoren, 
die eine Verwendung eines beliebigen Fernsehers er- 
möglichen. Die Bildqualität ist im Vergleich zur Be- 
nutzung eines Scart-Eingangs jedoch weitaus schlech- 
ter. 

Wenn Sie beim Einsatz eines Fernsehers trotz guter 
Lesbarkeit der Texte ein starkes Flimmern des Bildes 
feststellen, so liegt dies nicht am Fernsehgerät, son- 
dern am Atari ST. Doch keine Sorge, Ihr Rechner ist 
nicht etwa defekt. Vielmehr liefert der Computer die 


Bildschirminformationen lediglich mit einer falschen 
Bildwechselfrequenz (50 Hz). Diese kann man jedoch 
mit Hilfe des hier abgedruckten kleinen Maschinen- 
programms softwaremäßig auf 60 Hz erhöhen. 

Das Programm schaltet die Bildwechselfrequenz 
von 50 Hz auf 60 Hz um, wenn es durch Anklicken 
des Icons gestartet wird. Die Bildschirmdarstellung 
sollte sich dann verbessern. Um wieder auf 50 Hz 
zurückzuschalten, muß das Programm nur erneut 
gestartet werden. 

Die Maschinenroutine ist neben der Source-Code- 
Darstellung auch in Form von DATA-Zeilen als 
Basic-Programm abgedruckt, damit sie auch von 
Lesern, die nicht über einen Assembler verfügen, 
nutzbar ist. 

Wenn man das Basic-Programm eingegeben hat, 
sollte man es vor dem Starten sicherheitshalber ab- 
speichern. Nach RUN fragt das Programm nach dem 
Namen der zu erzeugenden Programmdatei. Anschlie- 
ßend werden die Data-Zeilen in ein lauffähiges Ma- 
schinenprogramm umgesetzt und in dieser Form auf 
der eingelegten Diskette abgespeichert. Der Computer 
überprüft dabei automatisch, ob die Datas fehlerfrei 
sind. Fehlerhafte Zeilen werden auf dem Bildschirm 
angezeigt. Die auf diese Weise erhaltene Programm- 
datei ist mit dem durch Assemblierunt des Source- 
Codes erzeugten File identisch. 

Es bietet sich natürlich an, das Maschinenpro- 
gramm mit Hilfe eines Auto-Ordners beim System- 
start automatisch starten zu lassen, so daß stets eine 
gute Bildschirmdarstellung gewährleistet ist. Auf die 
Qualität des monochromen Monitorbildes hat die 
Umschaltung mit diesem Programm keinerlei Aus- 
wirkungen. 





* 


* 

* 

ATARI ST 

♦ 

* 

Umschal tprogramm 50/60 

Hz * 

* 

f ür 

* 

* 

* 

* 

* 

* 

Fernsehgeräte und Monitore * 

* 

♦ 

* 

m 

* 

* 

TEXT 

* 

* 

* 

Adresse 

equ SFFFFS20A 

enthält Frequenz 

Supexec 

equ $66 

Supervisor -Mode 

XBIÜS 

equ $E 

XBIOS-Trap 

GEMDOS 

equ $01 

GEMDOS-Trap 

Start 

move . 1 #Umschalt , -Csp) 

Auf Supervisor- 


move.ui #Supexec , - C sq ) 

Modus umschalten 


trap #XE I OS 

und die Routine 


addq .1 #6 , sp 

’Umschalt’ starten 

Ende 

clr -Csp) 
trap #GEMD0S 

Programm beenden 

Umschalt 

bchg #1, Adresse 

Frequenz wechseln 


rts 

END 

Routine beenden 
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TIPS & TRICKS! 


100 REM ***************************************************** 

110 REM * * 

120 REM * Umschal tprogramm 50/60 Hz * 

130 REM * für den ATARI ST * 

140 REM * BASIC-LDADER * 

150 REM * * 

160 REM * * 

170 REM * * 

180 REM ***************************************************** 

190 REM 

200 FULLW 2 : CLEARW 2 

210 G0T0XY 15,2 

220 PRINT "Frequenzumschaltung ” 

230 GOTOXY 2,5 

240 INPUT "Filename für die Programmdatei : ”,F$ 

250 GOTOXY 2,7 

260 INPUT "Bitte Diskette einlegen und RETURN drücken ! ”,IP$ 

270 GOTOXY 15,10 : PRINT "Bitte warten” 

280 REM 

290 REM DATAs einiesen 

300 REM 

310 ZEILE = 600 : REM 600 ist erste DATA-Zeile 

320 READ LAENGE 

330 DIM F^CLAENGE/2+10) 

340 START = UARPTRCF^CO) ) 

350 FOR 1=0 TO LAENGE/2 STEP 7 

360 SUMME‘;= 0 : REM Checksumme löschen 

370 ZEILE = ZEILE + 10 

380 FOR J=I TO 1+8 

390 READ WERT* 

400 SUMME*- SUMME** WERT* 

410 F*CJ)= WERT* 

420 NEXT J 

430 READ CHECK* 

440 IF CHECK*< > SUMME*THEN 500 : REM Fehler in den DATAs 
450 NEXT I 

.460 GOTOXY 12.15 

470 PRINT "Keine Fehler in den DATAs” 

480 BSAUE FS, START, LAENGE 

490 END 

500 REM Fehler -- 

510 GOTOXY. 12, 15 

520 PRINT "Fehler in Zeile” ; ZEILE; ”!!! ” 

530 GOTOXY 12,17 

540 INPUT "Bitte RETURN drücken !!!”.IP$ 

550 END 

560 REM 

570 REM DATA-Zeilen 

580 REM 

600 DATA 61 

610 DATA 24602, 0, 28, 0, 0, 0, 0, 24630 

620 DATA 0, 0, 0, 0, 0, 0, 0, 0 

630 DATA 12092, 0, 18, 16188, 38, 20046, 23695, 6541 

640 DATA 16999, 20033, 2169, 1,-1,-32246, 20085, 27040 

650 DATA 0. 2, 65, 2169, 1,-1,-32246,-30010' 
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■ SERVICE 


Der Bildschirm 
Schoner : 
Scheltet den 
Monitor aus 


Das Bild auf einer Bild- 
röhre eines Monitors oder 
Fernsehers entsteht durch 
die sogenannte Fluores- 
zenzschicht. Sie wird 
beim Auftreffen der Elek- 
tronen des Elektronen- 
strahls kurz zum Leuch- 
ten angeregt. Kann es 
nun passieren, daß eini- 
ge Stellen immer das glei- 
che Muster oder Farben 
darstellen müssen, so be- 
steht die Gefahr, daß sich 
das Bild in die Leucht- 
schicht einbrennt und 
die Qualität des Monitor 
stark herabsetzt. 

In vielen Computern 
wird dieses Einbrennen 
durch Wechseln der Far- 
ben oder Abschalten des 
Bildes nach längeren Ein- 
gabepausen verhindert. 
Der ATARI ST ist leider 
nicht von Haus aus mit 
dieser Möglichkeit ausge- 
stattet. Das läßt sich je- 
doch leicht ändern, wenn 
Sie das folgende Pro- 
gramm benutzen. 

Die Funktion ist fol- 
gende: Wird eine be- 
stimmte Zeit keine Maus- 
bewegung oder Tastatur- 
eingabe vom Rechner 
festgestellt, so schaltet 
der ST einfach ein Moni- 
torbild aus. Das Bild er- 
scheint, sobald wieder 
eine Eingabe erfolgt ist 
und es kann sofort nor- 
mal weit er gearbeitet wer- 
den. 

Wie funktioniert das 

Es wird die Zeit ge- 
messen, in der keine Ein- 
gabe vom Benutzer vor- 
genommen worden ist. 
Ist eine bestimmte Zeit 


überschritten, dann stellt 
es den Shifterbaustein im 
ST auf externe Syncroni- 
sation um. Der Shifter ist 
zuständig für den Bild- 
aufbau und kann ent- 
weder selber die Syncro- 
nisation übernehmen 
oder diese Aufgabe einem 
externen Gerät überlas- 


sen. Externe Synchroni- 
sation bedeutet aber im 
Normalfall kein Bild, al- 
so Sicherheit vor einem 
Einbrennen! 

Bei Betätigung einer Ta- 
ste oder Bewegung der 
Maus wird alles einfach 
wieder zurückgestellt und 
das Bild ist wieder da. 


Das Listing wurde mit 
dem Ideal-Assembler er- 
stellt. Es läßt sich na- 
türlich leicht auch mit 
jedem anderen Assembler 
eingeben. Das fertige Pro- 
gramm ist gerade 200 
Bytes lang und findet in 
jedem AUTO-Ordner 
Platz. 


NOTFALLS DAS 

BASICLISTING 

ABTIPPEN 


Sollte man über keinen 
Assembler verfügen, so 
kann das GFA-Basiclisting 
abgetippt werden. Es er- 
zeugt schon das fertige 
Programm in Form eines 
Files auf Diskette. 


********************************** 


* Screen Saver 

- - save.s 


* 

* 

* 




* 

* 

* 




* 

* 
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5 Anzahl der Sekunden 

SYNCO 


= *FF820A 


5 Hardwarereg. des Shifter 5 

VBLQUEUE 

= *456 


5 Pointer auf VBL -Queue 

SEC 


= N*60 


; 1/60 sec. 

********************************** 



. TEXT 



START: 






MOVE . L 

A7, A5 




MOVE.L 

4<A5> , A5 


Anzahl der Bytes 


MOVE.L 

$C (A5) , B? 


des Prg’s berechnen 


ADD-. L 

#*100, D7 




PEA 

INIT 

i 

Installation der Interruptr 


MGVE 

#33, - (SP) 

» 

natuer 1 ich im Supervisormodi 


TRAP 

#14 

5 

( Super __exec ) 


ADDQ.L 

#6, SP 

5 



CLR 

- (SP) 

> 

Programm verlassen 


MOVE.L 

D7 , - (SP) 

5 

Speicherber eich nicht 


MOVE 

#$31 , - (SP) 

5 

frei geben . 


TRAP 

#1 

5 


********************************** 

init: 



• 



CMP. L 

# ’ JENS ’ , *420 

5 

Bereits installiert? 


BNE . S 

IN02 

; 

nein - - > 


CLR.L 

D7 

5 

Keinen Speicher retten! 


RTS 


5 

Und zurueck . . . 

IN 02 : 

MOVE . L 

*1 18, OLDKEY 

5 

Neue Interruptr outinen 


MOUE.L 

#NEUKEY,$119 

> 

e i nfuegen . 


MOVE. L 

VBLQUEUE, A0 

5 

VBL_Queu.e nach freiem 

IN 01 : 

TST.L 

( A0 ) + 

5 

Eintrag durchsuchen. 


BNE. S 

IN01 






» 

gefunden ! 


CLR 

COUNT 

5 

Zähler zur uc k setzen . 


MOVE.L 

#NEUVBL, - (A0) 

5 

Routine eintragen. 


MOVE . L 

# ’ JENS ’ ,*420 

5 

Installation erfolgt. 


RTS 


5 


COUNT: 

DS. W 

1 

5 

Zaehler. 
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********************************** 

neuvbl: 


ADD # 1 , COUNT 

CMP #SEC , COUNT 

BNE.S NE01 

OR.B # 1 , SYNCO 


Zähler erhöhen. 

Schon abgelaufen ? 
nein --> 

Externe Syncron i sat i on ! 


NE01 : 

RTS 


********************************** 

NEUKEY: 


AND . B #$FE , SYNCO 

CLR COUNT 

DC.B *4E,*F9 


Syncron i sat ion ein. 
Zähler zur ücksetzen . 
JMP 

alte Routine ausführen 


oldkey: dc.l -i 


GFA-Basicl isting 


Date i generator 


Print "Datei mit Namen "> 

Fi leselect " \*. *" , B$, Dat$ 

Print Dat$; " erzeugen." 

Open "0",#l,Dat$ 

Ze i 1 e=0 

Sum=0 

Do 

Read A 
Exit If A=- 1 
If A< 10000 
Sum=Sum+ A 
Out # 1 , A 
Else 

F 1 ag=A- 10000-Sum 
Inc Zeile 
Sum=0 
E n d i f 

Exit If F 1 ag< >0 
Loop 
Close #1 
If A— - 1 

Print "Alle DataZeilen ok'l " 

Else 

Print "Datafehler in Data-Zeile No. "»Zeile 



Data 0,0, 18, 40, 6, 16,6,20,8,26,10140,-1 


■ SERVICE 


Printer Spooler 
für den Atari ST 

Sicherlich haben Sie sich schon darüber geärgert, 
daß Ihr Drucker den Computer während der Druck- 
zeit blockiert und der Computer eigentlich über- 
haupt nicht ausgelastet ist. 

Andere Rechner, die über ein Betriebssystem mit 
Multitasking verfügen, erledigen das Drucken sozu- 
sagen nebenher. Unser ST ist damit jedoch bekannt- 
lich nicht ausgerüstet. Hier hilft unser Druckerspooler 
weiter. Er läßt den ST während des Ausdrucks 
auch noch andere Aufgaben erledigen. 


WIE FUNKTIONIERT DER SPOOLER? 


Aufgabe des Computers ist es, beim Ausdruck die 
Zeichen auf den Centronicsport zu geben. Danach 
wartet er auf das Busy-Signal, womit der Drucker 
ihm mitteilt, daß das Zeichen verarbeitet worden 
ist und er ein neues Zeichen senden darf. 

Der Spooler schickt alle Druckzeichen nicht 
direkt an den Drucker, sondern speichert sie in 
einem Druckpuffer im RAM ab. Der Puffer wird 
dann entsprechend der Druckgeschwindigkeit wieder 
geleert und Zeichen für Zeichen auf den Centronic- 
sport geschickt. 

Das Senden der Zeichen geschieht mit Hilfe des 
Vertikal Blank Interrupts. Er erledigt periodisch 
alle 70 bzw. 50 Sekunden verschiedene Aufgaben 
im ST. Wir lassen ihn nun jedesmal prüfen, ob der 
Drucker ein Zeichen aus dem Puffer empfangen 
kann und senden es gegebenenfalls. 

Der Puffer kann variabel je nach Größe des freien 
Speicherplatzes definiert werden. Das Programm 
ist so gehalten, daß es möglichst wenig Speicher- 
platz verbraucht. Es wurde vollständig in Assemb- 
ler geschrieben und sollte eigentlich mit allen anderen 
Anwendungen Zusammenarbeiten. 

Für Leute, die keinen Assembler zur Verfügung 
haben, ist ein Basic-Listing abgedruckt. 


ASSEMBLERLISTING 




* SPOOL.S 

******************** ** ******************* 


SAVPTR 

VBLQUEUE 

XBIOS 

GEMDOS . . 
SUPEXC . . . 

KEEP 

PRT 

READ 

BASPAG . . 
HITPA 


£4A2 

£456 

14 

1 

38 

£31 

£9 

£A 

4 

4 


***************************************** 


START: 

BRA INSTALL 

***************************************** 


TRAPNEU: 


LEA 

MOVE 

BTST 

BNE 

MOVE.L 


SUPER: 

MOVE 

CMP 

BNE 

MOVE 

BEQ 


6(SP),A0 
(SP), DO 
#13, DO 
super 
USP,A0 


0(A0),D0 

#3,D0 

DOOLD 

2(A0),D0 

DOIT 


DOOLD: 

MOVE.L TRAPOLD A0 
JMP (A0) 


Funktionsnummer 
SR-Register 
Supervisoraufruf ? 

ja* 

Sonst USP 
verwenden. 


; Funktionsnummer 
holen. 

; ’CONOUT’ ? 

; nein. 

; Centronics ? 

5 ja. 


; Alte Trapoutine 
ausführen. 


***************************************** 


DOIT: 

MOVE.L 

SAVPTR, Al 

MOVE 

(SP)+,D0 

MOVE 

DO, -(Al) 

MOVE.L 

(SPH-(Al) 

MOVEM.L D3-D7/A3-A7, 

MOVE.L 

-(Al) 

Al, SAVPTR 

WAFU: 

MOVE.L 

COUNT, DO 

CMP.L 

LENGTH.DO 

BGT 

WAFU 

MOVE.B 

5(A0),D1 

LEA 

PUFFER, Al 

MOVE.L 

INP,D2 

MOVE.B 

D1,0(A1,D2.L) 

ADDQ.L 

#1, COUNT 

ADDQ.L 

#1,D2 

CMP.L 

LENGTH,D2 

BLE 

MONI 

CLR.L 

D2 

MONI: 

MOVE.L 

D2,INP 

MOVEQ.L #— 1,D0 


; Zeiger auf Reg. area 
; SR retten 

; PC retten 

; Register retten 
; savptr update 


; Puffer schon voll ? 

; Ja, warte . . . 

; Character nach Dl. 

; Pufferstart. 

; Pufferoffset IN. 

; Zeichen abspeichem. 
; Zeichenzähler 
erhöhen. 

; Pufferoffset erhöhen. 
; Pufferende erreicht ? 
; nein. 

; Offset zurücksetzen. 


; Neuen Zeiger 
abspeichem. 

; Keinen Fehlercode. 
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MOVE.L 

SAVPTR.A1 

; Register restaurieren. VBLOLD: 

MOVEM.L 

(A1)+,D3— D7/ 


A3-A7 

DC.L ( 

MOVE.L 

(Al)+,-(SP) 


MOVE 

(Al)+,—(SP) 

TRAPOLD: 

MOVE.L 

RTE 

A1,SAVPTR 

DC.L ( 


Alter VBL-Vektor 


Alter Trapvector 
#13 


***************************************** 


LENGTH: 


VBLROUT: 

TST.L 

COUNT 

BEQ 

VBLEND 

BTST 

#0,ßFFFFFA01 

BNE 

VBLEND 

MOVE 

SR,D6 

OR 

#J5700,SR 

LEA 

ßFFFF8800Al 

MOVE.B 

#7, (Al) 

MOVE.B 

(Al), DO 

OR.B 

#ß80, DO 

MOVE.B 

D0,2(A1) 

MOVE.B 

#15, (Al) 

MOVE.L 

OUTP, Dl 

LEA 

PUFFER, AO 

MOVE.B 

0(A0,D1.L),D0 

MOVE.B 

D0,2(A1) 

MOVE.B 

#14, (Al) 

MOVE.B 

(Al), DO 

OR.B 

#ß20, DO 

MOVE.B 

D0,2(A1) 

AND.B 

#ßDF,D0 

MOVE.B 

D0,2(A1) 

MOVE 

D6,SR 

SUBQ.L 

#1, COUNT 

ADDQ.L 

#1,D1 

CMP.L 

LENGTH, Dl 

BLE.S 

VBLO 

CLR.L 

Dl 

VBLO: 


MOVE.L 

Dl, OUTP 

VBLEND: 


TST.L 

VBLOLD 

beq 

VBLRET 

MOVE.L 

VBLOLD, AO 

JMP 

(AO) 

VBLRET: 


RTS 



; Puffer leer ? 

; ja. 

; Busy testen. 

; busy ... 

; Status retten. 

; Interrupts sperren. 

; Soundchip Register. 
; Mixer selektieren. 

; Mixer lesen. 

; Port B auf Ausgabe. 
; Mixer schreiben. 

; Port B selektieren. 

; Offset für Output 
holen. 

; Zeichen aus Puffer 
holen. 

; Port B schreiben 
; Port A selektieren. 

; Port A lesen. 

; Strobe Low. 

; Strobe High. 

; Statusreg. zurück- 
holen. 

; —1 Zeichen. 




DC.L 0 ; Pufferlänge. 

COUNT: 

DC.L 0 ; Anzahl der Zeichen 

im Puffer. 

INP: 

DC.L 0 ; Pointer IN-Puffer. 

OUTP: 

DC.L 0 ; Pointer OUT -Puffer. 

PUFFER: 

; Hier beginnt der 
Druckerpuffer. 

***************************************** 


INSTALL: 




MOVE.L 

SP,A5 

5 

Basepage holen 

MOVE.L 

BASPAG(A5),A5 



MOVE.L 

HITPA(A5),D7 

> 

TPA Ende 

SUB.L 

#INSTALL,D7 

9 

Freien Platz 




berechnen. 

DIVU 

#1024, D7 

9 

in KByte. 

SUB 

#128, D7 

9 

Minus Sicherheit. 

MOVE 

D7,D0 

9 

D7 = freier Speicher. 

EXT.L 

DO 



LEA 

ZIFF,A0 

9 

Ziffer in Text 




einfügen. 

BSR 

WANDEL 

9 


LEA 

STRING 1,A0 



BSR 

PRINT 



PEA 

INBUFF 

9 

’Readline’ 

MOVE 

#READ,-(SP) 


* 

TRAP 

#GEMDOS 



LEA 

6(SP),SP 



LEA 

INBUFF+1.A0 

9 

KByte eingeben 

CLR.L 

D2 

9 

In Binaer umrechnen 

MOVE.B 

(A0)+,D0 

9 

in D2 speichern. 

BEQ 

NOCHAR 
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CONV: 


STAND: 


MO VE DO, Dl 
SUBQ #1,D1 

CLP: 

MOVE.B (A0)+,D0 
SUB.B #’0’,D0 

BMI NOVAL 

CONV1: 


LEA 

BSR 

BSR 

CLR 

MULU 

MOVE.L 

ADD.L 

MOVE.L 

TRAP 


STRING 3, AO 

PRINT 

WAIT 

—(SP) ; Keep Process 

#1024, D6 

D6,LENGTH 

#INSTALL— 

START+ßl20,D6 

D6,-(SP) 

#GEMDOS 


CMP.B 

#9, DO 

*************>(<*************************** 

BGT 

NOVAL 




MULU 

#10, D2 

INS01: , 



ADD 

D0,D2 






MOVE.L 

J5B4,A0 ; 

Trapvector holen. 

NOVAL: 


MOVE 

TRAPNEU, DO ; 

Spooler schon 





installiert ? 

DBRA 

Dl, CLP 

CMP 

(A0),D0 




BEQ 

INSRET ; 

ja. 

NOCH AR: 


MOVE.L 

AO, TRAPOLD ; 

Alten Trapvector 





#13 retten. 

TST.L 

D2 

MOVE.L 

#TRAPNEU,£B4 ; 

Neuen ein tragen. 

BNE 

LL01 

MOVE.L 

VBLQUEUEAO ; 

VBL-Routine 

LEA 

STRING2,A0 



ein tragen. 



MOVE.L 

4(AO),VBLOLD 


ERROR: 


MOVE.L 

#VBLROUT,4(AO) 




CLR 

DO 


BSR 

PRINT 




BSR 

WAIT 

INSRET: 



CLR 

-(SP) 




TRAP 

#GEMDOS 

RTS 








LL01: 


WANDEL: 

MOVE #4— 1,D5 ; 4 Ziffern in 


MOVE 

CMP 

BLE 

MOVE 


OK: 

MOVE 

EXT.L 

LEA 

BSR 

PEA 

MOVE 

TRAP 

LEA 

TST 

BEO 

LEA 

BRA 


D2,D6 

D7,D6 ; Genug Platz 

vorhanden ? 

OK ; ja. 

D7,D6 ; sonst vorhandenen 

Platz 


D6,D0 

DO 

ZIFF2,A0 

WANDEL 

INS01 

#SUPEXC,-(SP) 

#XBIOS 

6(SP),SP 

DO 

STAND 

STRING4.A0 

ERROR 


; Installation im 
Super-Mode 


; Fehler bei 
Installation ? 
; nein. 


INSLP: 


DIVU 

#10, DO 

SWAP 

DO 

ADD 

#’0’,D0 

MOVE.B 

D0,0(A0,D5.W) 

CLR 

DO 

SWAP 

DO 

DBF 

D5, INSLP 

RTS 


; Wandeln in BCD. 

; auf ASCII bringen. 
; in den String 
einfügen. 


; 4 Ziffern. 




PRINT: 

MOVE.L AO,— (SP) 

MOVE #PRT,-(SP) 

TRAP #GEMDOS 

LEA 6(SP),SP 

RTS 

sjc jjc »je #>fc jjc jjc ^jc »je * jjc »je 5je »je #jc »je 5jc 5|c *** jjc jjc 5fc 3fc jjc * »je »je »je »je 5jc «je »je »je 2 jc »je «je 5 jc jje 
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WAIT: 

MOVE #7, -(SP) 

TRAP #GEMDOS 

LEA 2(SP),SP 

RTS 

***************************************** 


.DATA 

STRING1: 

DC.B J51B,”E”,j5B,”p” 

DC.B £>a,ßd,”Jens Schuppener 1987” 

DC.B J51B,”q” 

DC.B ßa,£a,jSd, "Centronics Printer Spooler.” 
DC.B ßa.ßd “Ich habe noch“ 

ZIFF: 

DC.B “XXXX KByte Speicherplatz.“ 

DC.B JSa,y5d, “Wieviel KByte ?“,0 

STRING2: 

DC.B J5A,j5D, “Spooler nicht installiert.“,!) 

STRING3: 

DC.B JSA,ßD,' “Spooler mit“ 

ZIFF2: 

DC.B “XXXX KByte installiert !“,0 


Apfel- 

mänchen 



Apfelmännchen, zauberhafte Bilder, mathematisch be- 
rechnet, kennt mittlerweile wohl jeder. Jede größere 
Computerzeitschrift berichtet ausführlich über diese 
abstrakten Gebielde und hat auch so manches Listing 
veröffentlicht. 

Neu dürfte allerdings sein, daß man Apfelmännchen 
auch dreidimensional darstellen kann. 

Das folgende Listing zeigt eine Version für den Ata- 
ri ST mit Colormonitor und wurde in GFA-Basic er- 
stellt. 

Doch vorerst noch eine kurze Beschreibung zum 
Gebrauch dieses Programmes. Sie können es selbstver- 
ständlich nur laufen lassen, sofern Sie den GFA-Basic 
Interpreter besitzen. 

Bevor Sie es starten, legen Sie bitte eine doppelsei- 
tig formatierte Diskette in Ihr Laufwerk ein. 

3D FRACTAL generiert nun selbsttätig dreidimen- 
sionale fraktale Grafiken und speichert diese auf Dis- 
kette ab. 

Da GFA-Basic pro Bild ca. 30 Minuten rechnet, ist 
es empfehlenswert, das Programm zu compilieren. 

Mit ,,Bload ,fracl.pic‘, 1015808“ laden Sie das er- 
ste Bild. Mittels einer kleinen Laderoutine können Sie 
die Bilder der Reihe nach anschauen. 


STRING4: 

DC.B J51B,“E Spooler war bereits installiert !“ 
DC. J5A,ßA,ßD,“ Taste drücken “,0 

INBUFF: 

DC.B 4,0, “XXXX“, 0 

.EVEN 


Basiclisting Spooler in GFA-Basic. 


< i 

‘ Dateigenerator J. 

i i 


Open “0“,#l,“\spool.tos“ 
Zeile=0 


Sum=0 

Do 

Read A 
Exit If A=— 1 
If AC10000 
Sum=Sum+A 
Out #1,A 
Else 


F lag= A— 1 0 0 0 0 — Sum 

Ine Zeile 

Sum=0 

Endif 

Exit If FlagOO 


Neu : 

Setcolor- 0,73 
Cls 

For T= 1 To 10000 

Next T 

Xm=550 

Ym=100 

Xc=Rr.d (0) 

Yc=Rnd (0) 

T=Int (Rnd ( 1 )*30) 

S=Int (Rnd < 1 >#100) 

M i =0 

Xl=-0. 15 
Xr=0. 26 
Yo=0. 47 
Yu=0. 9 
Goto Bild 
Al : 

Bsave "f r acl . pic“ , 1015308,32768 

Goto Neu 

A2: 

Bsave " + rac2. pic" , 1015808,32768 

Goto Neu 

A3: 

Bsave "frac3. pic" , 1015808,32768 
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Goto Neu 
A4: 

Bsave " f rac4 . pic “ , 1015808,32768 
Goto Neu ’ 

A5: 

Bsave " f rac5 . p ic " , 1015808,32768 

Goto Neu 

A6: 

Bsave "f r ac6. pic » , 1015808,32768 

Goto Neu 

A7: 

Bsave "f r ac7. pic " , 1015808,32768 

Goto Neu 

A8: 

Bsave "f rac8. pic " , 1015808,32768 

Goto Neu 

A9: 

Bsave " fr ac9. pic " , 1015808,32768 

Goto Neu 

A10: 

Bsave " f rac 10 . p i c " , 1015808,32768 
Goto Neu 
Al 1 : 

Bsave "fr ac 1 1 . pi c ■ , 1015808,32768 

Goto Neu 

A12: 

Bsave "f racl2. pic" , 1015808,32768 

Goto Neu 

A13: 

Bsave "f racl3. pic" , 1015808,32768 

Goto Neu 

A14: 

Bsave "f racl4. pic" , 1015808,32768 

Goto Neu 

A15: 

Bsave " f racl5. pic " , 1015808, 32768 

Goto Neu 

A16: 

Bsave " f rac 16 . pi c " , 1015808,32768 

Goto Neu 

A17: 

Bsave "fracl7. pic" , 1015808,32768 

Goto Neu 

A18: 

Bsave "fr ac 18. pic", 1015808, 32768 

Goto Neu 

A19: 

Bsave "f rac 19. pi c " , 1015808, 32768 

Goto Neu 

A20: 

Bsave "f rac20. pic" , 1015808,32768 

Goto Neu 

Bild: 

Dx= (Xr-Xl ) /Xm 
Dy= (Yu-Yo) /Ym 
For P=0 To Ym 
Yl=Yo+N*Dy 
For 1=0 To Xm 


X=Xl+M*Dx 
Y = Y 1 
K=0 

Labe 1 1 : 

X2=X A 2 
Y2=Y^2 
Y=2*X*Y-Yc 
X=X2-Y2-Xc 
K=K+ 1 

If ( K< T ) And (X2 + Y2<S) Then 
Goto Label 1 
End i f 

U=li + 53-N/ 2 
U1=U+1 
V=N + 80' 

V1=V-3*(K-1 ) 

Color 3 

Line U+Mi , V, U+Mi , VI 
Color 0 

Line Ul +Mi , V, Ul +M i , VI 
Color 1 

Line U+M i , VI , Ul +M i , VI 
Next I 
Next P 
Z=Z+1 

If Z=1 Then 
Goto Al 
End i f 

If Z=2 Then 
Goto A2 
End i f 

If Z=3 Then 
Goto A3 
End i f 

If Z=4 Then 
Goto A4 
End i f 

If Z=5 Then 
Goto A5 
End if 

If Z=6 Then 
Goto A6 
End i f 

If Z=7 Then 
Goto A7 
End if 

If Z=8 Then 
Goto A8 
End if 

If Z=9 Then 
Goto A9 
End i f 

If Z=10 Then 
Goto A10 
End i f 

If Z=ll Then 
Goto All 
End i f 
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ANZEIGE 9 


ATARI SPECIAL 
KOMMT JETZT 
DIREKT 
INS HAUS! 
SIEBENMAL 
IM JAHR 

FÜR 60 DM! 


SIE SPAREN 
ÜBER 20 


PROZENT! 



Atari ST 



Tests, Tips 
Tricks für 
Ihren 
Atari ST 


Neue 

Druclier 

Neue 



Neue 

Software 

Super 

Listincfs 

MoNätcwr 

O m sofiailtLi rscj 



Finden Sie Ihre ATARI SPECIAL nicht immer am 
Kiosk? Vielleicht, weil schon ausverkauft? Möchten 
Sie ATARI SPECIAL schon vorder Kioskbelieferung 
in Händen haben? Dann gibt es jetzt eine Möglichkeit! 
Wir beliefern Sie im Abonnement mit sechs plus einer 
Ausgabe für ganze 60 DM (Inland) oder 80 DM 
(Ausland). Sie erhalten dann das jeweils druckfrische 
Heft, in der Regel sogar früher, als es am Kiosk hängt 
(so die Bundespost will). Sechsmal. Und außerdem 
gehört zum Abo noch unser jährlicher ATARI SPE- 
CIAL Sammelband im Wert von DM 14,80. Einzige 
Bedingung: Das Abo muß zum Zeitpunkt des Er- 
scheinens dieses Bandes noch bestehen und bezahlt 
sein. Ist das ein Angebot? 

WICHTIGE RECHTLICHE GARANTIE! 

Sie können diesen Abo-Auftrag binnen einer Woche 
nach Zugang der Abo-Bestätigung durch den Verlag an 
Sie widerrufen. Es genügt die rechtzeitige Absendung. 

Bitte, bestätigen Sie durch Ihre zweite Unterschrift, 
daß Sie von diesem Widerspruchsrecht Kenntnis 
genommen haben. 

ACHTUNG: WICHTIGER HINWEIS! 

Sie können dieses Abonnement jeweils mit einer Frist 
von einem Monat zum Ende des Bezugszeitraumes 
(sechs Hefte) kündigen. Unterlassen Sie diese Kündi- 
gung, wird die Belieferung mit weiteren sechs Heften 
zu den gleichen Bedingungen fortgesetzt! Die Liefe- 
rung beginnt nach Eingang der Abo-Gebühr. 
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Ich nehme zur Kenntnis 
daß die Belieferung 
erst beginnt, wenn die 
Abo-Gebühr dem Verlag 
zugegangen ist! 


ATARI SPECIAL H/88 
ABO-SERVICE 
POSTFACH 1161 
D-8044 

UNTERSCHLEISSHEIM 


Ja, ich möchte von Ihrem Angebot 
Gebrauch machen. 

Bitte senden Sie mir bis auf Widerruf 
ab sofort jeweils die nächsten sechs 


(+ 1) Ausgaben an untenstehende 
Anschrift. Wenn ich nicht vier Wo- 
chen vor Ablauf kündige, läuft diese 
Abmachung automatisch weiter. 


Name 

Vorname 

Straße/Hausnr. 

PLZ/Ort 

Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort 

Kontonummer J 

Bankleitzahl 

(steht auf jedem Kontoauszug) 

Unterschrift 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 

Unterschrift 


BIG-ASS 

ATARI SOFTWARE SERVICE! 

Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedin- 
gungen die Listings dieses Heftes auf 


□ Diskette (30 DM) 

Name 

Vorname 

Straße/Hausnr. 

PLZ/Ort 

Ich bezahle: 

□ per beiliegendem Verrechnungsscheck / Bargeld 

□ bargeldlos per Bankeinzug von meinem Konto (nur möglich in der Bundesrepublik!) 

bei (Bank) und Ort 

Kontonummer 

Bankleitzahl _ — (steht auf jedem Kontoauszug) 

Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 

Umtausch bei Nichtfunktionieren. 


Unterschrift 

Bitte ausschneiden und einsenden an 


ATARI LISTING EXTRA ü/88 
DISK-SERVICE 
POSTFACH 1161 
D-8044 UNTERSCHLEISSHEIM 


SO 



Die große Börse für jeden Zweck in ATARI-SPECIAL. Kostenlos für Privat-Inserenten. Spottbillig für gewerb- 
liche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post - Freimachen nicht 
vergessen! - Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir 
weisen ausdrücklich darauf hin, daß wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und 
uns jedweden Abdruck kostenloser Anzeigen Vorbehalten müssen, insbesondere, wenn deren Inhalt gegen gelten- 
des Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Privatanbieter: etwa bis zu acht 
Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p. Zeile mit 28 Anschläge. 



ATARI SPECIAL 
ANZEIGENABTLG 
POSTFACH 1161 
D-8044 UNTERSCHLEISSHEIM 


Name 

Vorname 

Straße /Hausnr. 
PLZ/Ort 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort ATARI SPECIAL: KLEIN- 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht das. 
Wollen Sie das Heft nicht zerschneiden, können Sie 
den Coupon auch fotokopieren. Oder einfach den An- 
zeigentext uns so schicken, auf Postkarte oder im Brief. 
Aber bitte mit Druckbuchstaben oder in Schreibma- 
schinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Telefon- 
nummer sollten acht Zeilen a 28 Anschläge nicht über- 
schritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inse- 


renten kostenlos, gewerbliche Anzeigen kosten pro 
Zeile zu 28 Buchstaben DM 5,00 plus Mehrwertsteuer! 
Wir versenden für Privat-Inserenten keine Beleg-Exem- 
plare! 

DIE INSERTION IST NICHT VOM HEFTKAUF AB- 
HÄNGIG! Chiffre-Anzeigen sind nicht gestattet! Wir 
behalten uns vor, Anzeigen, die gegen rechtliche, sitt- 
liche oder sonstige Gebete verstoßen, abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes - Computer - gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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VERDIENEN 


SIE GELD 
MIT IHREM 
ATARI ST 


Haben Sie einen ATARI ST? Können Sie programmie- 
ren? In Basic oder Maschinensprache? Dann bietet 
ATARI SPECIAL Ihnen die Möglichkeit, mit diesem 
Hobby Geld zu verdienen. 

Wie? Ganz einfach. Sie senden uns die Programme, die 
Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwen- 
dete Hardware - eventuelle Erweiterungen - benutzte 
Peripherie - hervorgehen muß, ein. 

Benötigt wird ein Datenträger mit dem Programm! 
Wenn die Redaktion sich überzeugt hat, daß dieses 
Programm läuft und sich zum Abdruck eignet, zahlen 
wir Ihnen pro abgedrucktem Programm, je nach Um- 
fang, bis zu DM 500,-! 


Sie erhalten Ihren Datenträger selbstverständlich zu- 
rück, wenn Sie einen ausreichend frankierten Rück- 
umschlag mit Ihrer Adresse beifügen. 

Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu- 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
englische Fachzeitschriften liest und „ungestaltete" 
Programme ziemlich schnell erkennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Name des Einsenders: 
Straße/Hausnr./Tel.: _ 
PLZ/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt □ Listings □ Diskette 

Ich versichere, der alleinige Urheber des Programms zu sein! 

Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Das Copy- 
right geht an den Verlag über. 


Rechtsverbindliche Unterschrift 


ATARI SPECIAL 
Programm-Redaktion 
Postfach 1161 
D-8044 Unterschleißheim 
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I-f Z= 1 2 Then 
Goto A 1 2 
End i -f 

I-f Z= 1 3 Then 
Goto A13 
End i-f 

I f Z=1 A Then 
Goto A14 
End i-f 

I-f Z= 1 5 Then 
Goto A15 
Er.di-f 

I-f Z=16 Then 
Goto A16 
End i -f 

I-f Z= 1 7 Then 
Goto A17 
End i-f 

I-f Z= 1 8 Then 
Goto A 1 8 
End i-f 

1+ Z= 1 9 Then 
Goto A19 
End i -f 

I-f Z=20 Then 
Goto A20 
End i -f 

I-f Z = 2 1 Then 
Goto Fertig 
End i -f 
Fertig: 

Print "FERTIG" 
End 



DATA 0,0, 1,36,6, 134,0,0,2,84,47,6,63,60, 10439 
DATA 0,49,78,65,32, 120,0, 180,48,57,0,0, 10629 
DATA 0,4,176,80, 103,0,0,38,35,200,0,0, 1 , 10637 
DATA 32,33,252,0,0,0,4,0, 180,32, 120,4,86, 10743 
DATA 35,232,0,4,0,0, 1,28,33,124,0,0,0,148, 10605 
DATA 0,4,66,64,78, 117,58,60,0,3, 128,252, 10830 
DATA 0, 10,72,64,6,64,0,48, 17, 128,80,0,66, 10555 
DATA 64,72,64,81,205,255,236,78, 117,47,11219 
DATA 8,63,60,0,9,78,65,79,239,0,6,78, 117, 10802 
DATA 63,60,0,7,78,65,79,239,0,2,78, 117, 10788 
DATA 27,69,27, 112, 10, 13,74, 101, 110, 115, 10658 
DATA 32,83,99, 104, 117, 112, 112, 101, 110, 101, 10971 
DATA 114,32,49,57,56,55,27,113, 10, 10, 13, 10536 


DATA 67, 101, 110, 116,114,111, 110, 105,99, 10933 
DATA 115,32,80,114,105,110,116,101,114, 10887 
DATA 32,83,112,111,111,108,101,114,46,10, 10828 
DATA 13,73,99, 104,32, 104,97,98, 101,32, 110, 10863 
DATA 111,99, 104,32,88,88,88,88,32,75,66, 10871 
DATA 121, 116, 101,32,83, 112, 101, 105,99, 104, 10974 
DATA 101, 114, 112, 108,97, 116, 122,46, 10, 13, 10839 
DATA 87, 105, 101, 118, 105, 101, 108,32,75,66, 10898 
DATA 121,116,101,32,63,0,10,13,83,112,111, 10762 
DATA 111,108, 101, 114,32, 110, 105,99, 104, 10884 
DATA 116,32, 105, 110, 1 15, 116, 97, 108, 108, 10907 
DATA 105,101,114,116,46,0,10,13,83,112,1 0700 
DATA 111,111, 108, 101, 114,32, 109,105, 116, 10907 
DATA 32,88,88,88,88,32,75,66,121,116,101, 10895 
DATA 32, 105, 110, 115, 116,97, 108, 108, 105, 10896 
DATA 101,114,116,32,33,0,27,69,32,83,112,10719 
DATA 111,111, 108, 101, 114,32, 119,97, 114, 10907 
DATA 32,98,101,114,101,105,116,115,32,105,10919 
DATA 110, 115, 116,97, 108, 108, 105, 101, 114, 10974 
DATA 116,32,33, 10, 10, 13,45,45,45,45,45, 10439 
DATA 45,45,45,45,32,84,97, 115, 116, 101,32, 10757 
DATA 100, 114, 129,99, 107, 101, 110,32,45,45, 10882 
DATA 45, 45, 45, 45, 45, 45, 45, 0,4,0, 88, B8, 88, 10583 
DATA 88,0,42,0,0,0,42,26,6,14,6,10,8,12, 10254 
DATA 26,48,6,38,8,10,6,10,44,18,10,10,16, 10250 
DATA 52,32, 10,22, 10,20,24, 12,6, 14,6, 10208,-1 
Loop 

CI ose #1 
If A=-l 

Print "Alle DataZeilen ok ! 

Else 

Print "Datafehler in Data-Zeile No. ";Zeile 

Endi f 

End 

DATA 96,26,0,0,2,134,0,0,1,10,0,0,0,0,0, 10269 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,96,0,1,50,10147 
DATA 65,239,0,6,48,23,8,0,0, 13, 102,0,0, 10504 
DATA 4,78, 104,48,40,0,0, 12,64,0,3, 102,0, 10455 
DATA 0, 10,48,40,0,2, 103,0,0, 10,32, 121,0, 10366 
DATA 0, 1,32,78,208,34, 120,4, 162,48,31,51, 10769 
DATA 0,35,31,72,225,31,31,33,201,4, 162, 10825 
DATA 32,57,0,0,1,40,176,185,0,0,1,36,110, 10638 
DATA 0,255,242, 18,40,0,5,67,249,0,0, 1,52, 10929 
DATA 36,57,0,0, 1,44, 19. 129,40,0,82, 185, 10593 
DATA 0,0,1,40,82, 130, 180, 185,0,0, 1 , 36 , 1 1 1 , 1 0766 
DATA 0,0,4,66, 130,35, 194,0,0, 1,44, 112,255, 10841 
DATA 34, 120,4, 1 62 , 76 , 2 1 7 , 248 , 24B , 47 , 25, 11181 
DATA 63,25,33,201,4, 162,78, 115,74, 185,0, 10940 
DATA 0,1,40,103,0,0, 108,8,56,0,0,250, 1, 10567 
DATA 102,0,0,98,64, 198,0, 124,7,0,67,248, 10908 
DATA 136,0, 18, 188,0,7, 16, 17,0,0,0, 128, 19, 10529 
DATA 64,0,2,18,188,0,15,34,57,0,0,1,48, 10427 
DATA 65,249,0,0,1,52, 16,48,24,0, 19,64,0, 10538 
DATA 2, 18, 188,0, 14, 16, 17,0,0,0,32, 19,64, 10370 
DATA 0,2,2,0,0,223, 19,64,0,2,70, 198,83, 10663 
DATA 185,0,0,1,40,82, 129, 178, 185,0,0,1,10801 
DATA 36, 111,2,66, 129,35, 193,0,0, 1,48,74, 10695 
DATA 185,0,0,1,28,103,0,0,10,32,121,0,0, 10480 
DATA 1,28,78,208,78, 117,0,0,0,0,0,0,0,0,10510 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42, 10042 
DATA 79,42, 109,0,4,46,45,0,4,4, 135,0,0, 10468 
DATA 1,52, 142,252,4,0,4,71,0, 128,48,7,72, 10781 
DATA 192, 65,249,0,0, 2, 208,97,0,0, 248, 65, 1 1126 
DATA 249,0,0,2, 134,97,0, 1, 10,72, 121,0,0, 10686 
DATA 3, 136,63,60,0, 10,78,65,79,239,0,6, 10739 
DATA 65,249,0,0,3, 137,66, 130, 16,24, 103, 10793 
DATA 0,0,34,50,0,83,65, 16,24,4,0,0,48, 107, 10431 
DATA 0,0,16,12,0,0,9,110,0,0,8, 196,252, 10603 
DATA 0, 10,212,64,81,201,255,230,74, 130, 11257 
DATA 102,0,0,20,65, 249 ,0,0,2,251, 97, 0,0,10786 
DATA 188,97,0,0, 198,66, 103,78,65,60,2, 188, 11045 
DATA 71,111 ,0,0,4,60,7, 48,6, 72, 192,65,249, 10885 
DATA 0,0,3,38,97,0,0, 128,72, 121,0,0,2,26, 10487 
DATA 63,60,0,38,78,78,79,239,0,6,74,64, 10779 
DATA 103,0,0, 12,65,249,0,0,3,63,96,0,255, 10846 
DATA 190,65,249,0,0,3,24,97,0,0, 114,97, 10839 
DATA 0,0, 124,66, 103,204,252,4,0,35, 198, 10986 
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Maschinenroutine 
zur Eingabe von 
Datum und Uhrzeit 
beim Systemstart 

Wie Sie sicherlich bereits wissen, besitzt der ATARI 
ST eine eingebaute Software-Uhr, die bei jedem Sy- 
stemstart (nach dem Einschalten oder nach RESET) 
neu eingestellt werden muß, da sie nicht gepuffert 
ist. 

Mit Hilfe des Kontrollfeldes kann der User sowohl 
das Datum wie auch die Uhrzeit ändern. Dazu ist es 
jedoch notwendig, daß sich das Accessory-File mit 
dem Kontrollfeld beim Booten des Systems auf der 
eingelegten Diskette befindet. Das hier abgedruckte 
Maschinenprogramm erlaubt die Eingabe von Datum 
und Uhrzeit. Es bietet gegenüber der Kontrollfeld- 
Alternative mehrere große Vorteile. Das Programmfile 
wird — in einem AUTO-Ordner abgelegt — beim 
Systemstart automatisch gestartet, so daß die Ein- 
gabe des aktuellen Datums und der momentanen Uhr- 
zeit nicht vergessen werden kann. Weiterhin kann auf 
das Kontrollfeld-Accessory verzichtet werden, das 
recht viel Speicherplatz in Anspruch nimmt und trotz- 
dem jederzeit die aktuellen Daten eingegeben werden. 

Das Maschinenprogramm hat eine Länge von 461 
Bytes und wurde mit Hilfe eines DATA— Generators 
in den DATA-Zeilen eines BASIC-Programms abge- 
legt. Durch dieses Verfahren ist gewährleistet, daß 
jedermann das Maschinenprogramm eingeben kann, 
selbst wenn er keinen Assembler besitzt. Außerdem 
nimmt ein BASIC-Listing weitaus weniger Platz in 
Anspruch als der Quelltext, so daß man auch Zeit bei 
der Eingabe spart. Interessierte Leser erhalten auf 
Wunsch ein Listing des Quelltextes gegen einen aus- 
reichend frankierten Rückumschlag beim Programm- 
autor. Die Adresse finden Sie am Ende des Artikels. 

Zur Bedienung des BASIC-Programms: Geben Sie 
den Programmtext zunächst im ST-BASIC-Editor ein 
und speichern Sie das Programm sicherheitshalber ab. 
Anschließend können Sie es mit RUN starten. Der 
Rechner fragt nach dem Namen der Datei, in der das 
Maschinenprogramm abgelegt werden soll. Geben Sie 
einen Namen mit geeigneter Extension (PRG oder 
TOS) ein. Es handelt sich um ein TOS-Programm. 
Wenn es in einem AUTO-Ordner abgelegt werden soll, 
so muß die Endung jedoch „PRG“ lauten, damit es 
automatisch gestartet wird. 

Der Computer wandelt die DATA-Zeilen dann 
automatisch in. ein Maschinenprogramm um und spei- 
chert dieses auf der Diskette ab. Fehlerhafte DATA- 
Werte, die anhand einer Checksumme am Ende jeder 
Zeile erkannt werden, gibt der Computer auf dem 
Bildschirm aus, so daß eine korrekte Eingabe gewähr- 
leistet ist. 


Wenn das Maschinenprogramm später gestartet 
wird (durch Anklicken oder automatisch beim Sy- 
stemstart), so muß der User zunächst das aktuelle 
Datum eingeben. Der Rechner zeigt die gewünschte 
Form an (TT-MM-JJJJ). Ein gültiges Datum wäre bei- 
spielsweise „10-01-1987“. Das Programm überprüft 
automatisch, ob die eingegebenen Werte im richtigen 
Bereich liegen und verlangt bei Fehlern eine neue Ein- 
gabe. 

Nach der Eingabe des Datums folgt die Eingabe der 
Uhrzeit, wobei man sich an die Form „ss:mm:ss“ 
halten sollte. Eine korrekte Angabe ist also zum Bei- 
spiel „21:33:14“. Die Sekundenangabe sollte ein ge- 
rader AVert sein, da der ATARI ST nur alle zwei Se- 
kunden die Uhr per Interrupt weiterstellt und deshalb 
nur gerade Sekunden verwendet. Auch bei der Zeitan- 
gabe werden die Werte auf den richtigen Bereich ge- 
prüft. 

Es gibt übrigens die Möglichkeit, auf die Eingabe 
der Daten zu verzichten, indem man bei der ent- 
sprechenden Abfrage nur die RETURN-Taste be- 
tätigt. Die intern gespeicherten Werte bleiben dann 
unverändert erhalten. 

Die Eingaben selbst können mit Hilfe der Back- 
space-Taste korrigiert werden, sofern man noch nicht 
RETURN gedrückt hat. 

Wenn beide Eingaben korrekt vorgenommen wur- 
den, kehrt das Programm automatisch zum Desktop 
zurück. 

Bitte beachten Sie, daß das Programm nur dann in 
einem AUTO-Ordner eingesetzt werden sollte, wenn 
sich das Kontrollfeld-Accessory nicht auf dieser Dis- 
kette befindet, da dieses die Uhrzeit nach der Eingabe 
mit Hilfe des Maschinenprogramms erneut verändert. 

Die Adresse, bei der Sie den Quelltext erhalten 
können, lautet: Oliver Steinmeier, Mauerstraße 1, 
4934 Hom-Bad Meinberg 1. 

Oliver Steinmeier 


100 REM ********************* **************** 


110 REM * * 
120 REM * Datums- und Zeiteinqabe * 
130 REM * für den ATARI ST * 
140 REM * BASIC-LÜADER * 
150 REM * * 
160 REM * * 
170 REM * * 


180 REM ************************************* 
190 REM 

200 FULLW 2 : CLEARW 2 

210 GOTOXY 15,2 

220 PRINT "Datumsei r.gabe" 

230 GOTOXY 2,5 

240 INPUT "Filename -für die Programmdatei : ", 

250 GOTOXY 2,7 
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260 INPUT "Diskette einlegen und RETURN drücken !", IP$ 
270 60T0XY 15,10 : PRINT "Bitte warten" 

280 REM 

290 REM DAT As ei niesen 

300 REM 

310 ZEILE = 600 : REM 600 = erste DATA-Zeile 

320 READ LAENGE 

330 DIM F% ( LAENGE / 2+ 1 ) 

340 START = VARPTR (F%<0) ) 

350 FOR 1=0 TO LAENGE/ 2 STEP 7 

360 SUMME%= 0 : REM Checksumme löschen 

370 ZEILE = ZEILE + 10 

380 FOR J=I TO 1+6 

390 READ WERT% 

400 SUMME%= SUMME%+ WERT% 

410 F% ( J ) = WERT% 

420 NEXT J 
430 READ CHECK% 

440 IF CHECK%< > SUMME%THEN 500 

450 NEXT I 

460 GOTOXY 12,15 

470 PRINT "Keine Fehler in den DATAs" 

480 BSAVE F$, START, LAENGE 
490 END 


500 REM Fehler 

510 GOTOXY 12, 15 

520 PRINT "Fehler in Zei le" ; ZEILE; " ! ! ! " 
530 GOTOXY 12,17 

540 INPUT "Bitte RETURN drücken !!!",IP$ 
550 END 


560 

REM 

570 

REM 

580 

REM 

600 

DATA 

610 

DATA 

620 

DATA 

630 

DATA 

640 

DATA 

650 

DATA 

660 

DATA 

670 

DATA 

680 

DATA 

690 

DATA 

700 

DATA 

710 

DATA 

720 

DATA 

730 

DATA 

740 

DATA 

750 

DATA 

760 

DATA 

770 

DATA 

780 

DATA 

790 

DATA 

800 

DATA 

810 

DATA 

820 

DATA 

830 

DATA 

840 

DATA 


DATA-Zei len 


461 

24602.0. 324.0.92.0. 12.25030 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 

16188,1, 16188,21,20046,22671, 11388,20967 
0,324,24832,240, 11388,0,362,-28390 

24832.230.24832.272.5116. 11.0, -10243 

416. 18553.0. 416. 16188. 10.20033,-9920 

23695. 19001.0. 417.26368.66. 11388. 15399 
0,418,24832, 196,3141,31,28344,-8574 
10245,24832, 184,3141 , 12,28332, -5307', -4097 
-10171 , 24832, 170,3141, 1980,28062, 1093, - 16429 
1980,5692,9,-6299,-10171 ,16132, 16188,23531 

43.20033.22671. 11388.0. 386.24832. 13817 

120. 24832. 162.5116.9.0. 416.30655 

18553.0. 416. 16188. 10.20033.23695. 13359 

19001.0. 417.26368.66. 11388.0, -8296 

418.24832.86.3205.0. 23.28352,-8620 
10245,-4796,24832,70,3205,0,59, -31921 
28336,-10171,-5308,24832,54,3205,0, -24588 
59,28320, -7611,-10171 ,16132, 16188,45,-22574 

20033.22671. 16188.0. 16188.21.20046, 29611 

22671. 16188.0. 20033. 12046. 16188.9.21599 
20033 , 23695 , 20085 , 1 7029 ,7198, 3078 , 48 , 25630 
27904,22,3078,57,28160, 14, 1094,-5207 
48,-13572, 10, -9658,24802,20085, 11388, -32433 
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TRICKSHHI 



850 DATA 
860 DATA 
870 DATA 
880 DATA 
890 DATA 
900 DATA 
910 DATA 
920 DATA 
930 DATA 


0,416, 16926,-16900,0,429,28150, 29021 
20085 , 698 1 , 700 1 , 8506 , 1 7440 , 24864 , 29728 , - 1 6467 
29984,27936,29472,25888,26912,28192,26400,-1824 
24864,25120, 25888, 14858,3338,3328,8224,-25452 
17505,29813,27936, 10324,21549, 19789, 11594,7438 
19018, 18985,8250,8192,2573,2573,8224,2279 
23141 , 26996,8232,26723, 14957,27962,29555,26499 
10528,8224,3250,3192,0,0, 14,-30323 
2576, 1550,2624,4102,3594,-32760,0,-18314 



Dieses beliebte Spiel soll Ihnen 
he lfen, Ihr Gedä cht nis zu trainie- 
ren. Können Sie den Computer 
schlagen? Töne, die der Rechner 
spielt, müssen per Anwahl durch 
einen Mausklick in der richtigen 
Reihenfolge wiederholt werden. Die 


Melodien werden immer komplexer. 
Dadurch verliert das Spiel auch 
nach längerer Spielzeit nichts von 
seinem Reiz. Der User muß schon 
sehr auf Draht sein, um seinen 
Computer zu schlagen. Dieses Pro- 
gramm ist in GFA-Basic geschrieben. 


* BENUTZTE VARIABLEN 

9 

* T , TT , TC SCHLEIFEN 

’ ZA ZÄHLT ANZAHL DER DURCHGÄNGE BEI ABFRAGE 

’ ZAEHLER ZÄHLT * ' ' * 1 ' * ' ZEIGEN 

’ X,Y,K MOUSE STATUS 

* ZUFALL ENTHÄLT AUSWAHL DES NÄCHSTEN FELDES 

’ A RETTET T 

’ R FARBREGISTER BEI PROCEDURE WAIT (REGISTER) 

’ SCORE PUNKTE ANZAHL 

9 

’ BENUTZTE FELDER 

9 

’ MERKER () ENTHÄLT REIHENFOLGE DER FELDER 

9 

’ S E N S 0 
On Break Gosub Reset 
Dirn Merker(100) 

9 

’ Farbwerte bestimmen 


Setco 1 or 
Setcolor 
Setco lor 
Setco lor 
Setco lor 
Setco 1 or 
Setco lor 
Setco 1 or 
Setco 1 or 


1,7, 7, 5 

4. 0. 0.0 

5. 7. 0. 0 

6.0. 7.0 

7. 0. 0. 7 
8,7, 1,7 
3, 7, 7, 4 

10.5.0. 1 
0,55 


# 

Schatten 
feld 3 
feld 1 
feld 4 
Feld 5 
feld 2 

Hi ntergr und 


’ Bildschirm aufbauen 


Def-fill 4 
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TIPS STRICKS* 


Pbox 5,5,315,195 
Dettill 11 
Pbox 0,0,310, 190 
Color 4 

Det text 4,0,0, 13 

Graphmode 2 

Text 130,20," SENSO " 

Text 220,80," DURCHGÄNGE" 

Text 20,80," SCORE" 

Graphmode 1 
For T=1 To 5 
Color- 4 
Det t i 11 4,1,1 

Pbox 100+5, T*30+5, 220+5, T*30+20+5 
Color 4+T 
Dettill 4+T, 1,1 
Pbox 100, T*30, 220, T*30+20 
Next T 

@Wai t <0) 

> 

’ Main Job ( Haupt pragramm ) 

* 

Do 

Zutal l=Random (4) +1 
Ino Zaehler 

Merker ( Zaeh 1 er ) =Zuf al 1 
Deftext 4,0,0,13 
Graphmode 1 
Text 270, 100, Zaeh ler 
Text 40, 100, Score 
DeT mause 2 
Pause 20 
©Show 

Detmouse 0 
@Ask 

1 1 Zutal 1 =Mer ker < Zaeh 1 er- 1 ) 

! WENN FELD VORHIN (-1) 

Add Score, 5 ! DANN 5 

Else 

Add Score, 10 ! ANDENFALL 10 PUNKTE MEHR 

End i t 
Loop 

’ Haupt prograrnm ENDE 

’ Proceduren 

Pr ocedure Show 

For Tc=l To Zaehler 
A=Mer ker (Tc) 

Restore 
For T= 1 To A 
Read Y 
Next T 

Co 1 o=Xb i os ( 7 , Y , - 1 ) ! xb i os < 7, t arbr eg i ster , -1 > 

Setcolor Y,5,0,l ! der tarbwert des reg. 

Sound 1 , 15 , A , 3 , 2 
Vsync 
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Pause 20 
Sound 1,0, 0,0 
Setcolor Y,Colo 
Pause 10 
Next Tc 
Return 

i 

Procedure Ask 
Za=0 
Do 

Mouse X,Y,K 
For T=1 To 5 
If X >100 And X< 220 And 
Inc Za 
©Klick 

©Überwachung 
End if 
Next T 

Exit If Za=Zaeh 1er 
Loop 

Return 

* 

Procedure Klick 
A=T 

Restore 
For T=1 To A 
Read Y 
Next T 

Colo=Xbios (7, Y, -1 ) 
Setcolor Y,5,0,l 
Sound 1 , 15, A, 3, 2 
Vsync 
Pause 20 
Sound 1,0, 0,0 
Setcolor Y,Colo 
Pause 10 
Return 

Procedure Überwachung 
If A< >Merker (Za) 

©Feh 1er 
Endif 
Return 

Procedure Fehler 
For Tt=0 To 12 
For T =0 To 15 

Sound 1 , 15, Tt, T, 1 
Next T 

Print At (40, 40) 

Pr int 
Next Tt 
Deffill 4 

Pbox 105,55,225,155 
Deffill 9 

Pbox 100,50,220,150 
’ Deffill 0 
’ Pbox 120,70,200,130 


Y>T*30 And Y<T*30+20 And K=1 



ATARI SPECIAL 
baut seine Redaktion aus! 

Dazu suchen wir noch einige 

FREIE MITARBEITER 

Sind Sie mit dem ST und seiner 
Peripherie vertraut, können Sie 
darüber schreiben, Ihre Erfah- 
rungen, Ihr Wissen weitergeben? 
Trauen Sie sich zu, Software- 
Pakete zu testen? Beherrschen 
Sie mindestens eine Program- 
miersprache perfekt? 

Dann melden Sie sich bei uns. 

Bitte n u r schriftlich! 

Richten sie Ihre Kurzbewerbung 
an ATARI SPECIAL 
Heßstraße 90, 8000 München 40, 
Personalabteilung 
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Graphmode 3 
Deftext 10,0,0,13 
Text 115, 100, " GAME 
Text 115,120," OVER " 

Graphmode 1 
@Wai t (8) 

Repeat 

Unt i 1 Mousek=0 

Alert 1," i ! NOCH ’N GAME ??" , 1 , " JA I NEIN " ,A1 
I-f A 1 = 1 
Run 
E 1 se 
End 
End i -f 
Return 


Procedure Reset 
Sound 1,0, 0,0 

Setco 1 or 0,55 
Setcolor 1,7? 
Edit 
Return 


Procedure Wait(R) 
H i d em 

Mouse X , Y , K 
Do 


Setco 1 or R , 1 


Setcolor R,2 
Setcolor R,3 


Setcolor R,4 


Setcolor R,5 


Setcolor R,6 
* 

Setcolor R,7 

Setcolor R,B 
> 

Exit I-f X< >Mousex Or Y< >Mousey 
Loop 
Showm 

Setcolor 0,5 
Return 



ATARI 

Hotline 

Dienstags 

15.00 19.00 Uhr 
Tel. 089/1298013 


Data 6, 3, 5, 7, 8 
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Das folgende Problem kennt wohl jeder ST-User; Man 
sucht ein bestimmtes Programm, weiß jedoch nicht, 
auf welcher Diskette es in welchem Subdirectory ab- 
gespeichert ist. Normalerweise muß nun jeder Ordner 
der Disketten einzeln nach der Datei durchsucht wer- 
den. Mit Hilfe des hier abgedruckten Assemblerpro- 
gramms DIR LISTER kann der USER sich alle auf 
einer Diskette gespeicherten Programme in einem Ar- 
beitsgang anzeigen lassen. Die Ausgabe kann auf 
Wunsch auch auf einem Drucker erfolgen. 

Die Bedienung des Programms ist sehr einfach. 
Nach dem Starten durch doppeltes Anklicken muß 
zunächst ein Suchfilename eingegeben werden. Bei 
der Ausgabe der Dateien auf der Diskette werden nun 
die entsprechenden Files berücksichtigt. Natürlich 
kann der Benutzer hier auch das als Joker-Zei- 
chen verwenden. Folgende Eingaben sind also zulässig: 

*.BAS zeigt alle Dateien mit der Extension 
„BAS“ an 

GRAFIK.* zeigt alle Dateien mit dem Namen 
„GRAFIK“ an 

*.* zeigt alle Dateien mit beliebigem Namen 

und beliebiger Extension an. 

Drückt der User einfach nur die RETURN-Taste, so 
wird „*.*“ als Default-Wert eingesetzt. 

Es ist also möglich, sämtliche oder nur bestimmte 
Dateien einer Diskette ausgeben zu lassen. Nach die- 
ser Eingabe fragt das Programm nach der Ausgabeein- 
heit. Sollen die Dateien auf dem Bildschirm angezeigt 
werden, so muß „0“ eingegeben werden. Für die Aus- 


gabe auf dem Drucker lautet die korrekte Antwort 
„1“. Um das Programm zu beenden, muß hier ledig- 
lich die ESC-Taste gedrückt werden. 

Schließlich verlangt das Programm noch die Einga- 
be des Laufwerks. Je nach Eingabewert (z.B. „A“, 
„B“, „C“) wird das Directory der eingelegten Disket- 
te, der RAM-Floppy oder der Festplatte angezeigt. 

Das Programm zeigt — wenn vorhanden — zunächst 
den Namen der Diskette an. Anschließend werden 
sämtliche Subdirectories der Reihe nach bearbeitet. 
Alle enthaltenen Files werden, sofern es der einge- 
gebene Suchfilename zuläßt, angezeigt oder ausge- 
druckt. Ein „*“ vor dem Namen signalisiert, daß die 
Datei schreibgeschützt ist. Nach dem jeweiligen Datei- 
namen werden die Länge, das Datum der letzten Ver- 
änderung und die zugehörige Uhrzeit ausgegeben. Die 
abgedruckte Bildschirmhardcopy verdeutlicht sämt- 
liche Ein- und Ausgaben des Programms. 

Das Programm wird nach jedem Durchlauf neu ge- 
startet. Ein Abbruch ist — wie bereits erwähnt — 
durch Drücken der ESC-Taste bei der zweiten Eingabe 
möglich. 

Wie Sie dieser Beschreibung des Programms ent- 
nehmen konnten, gibt es zwei Anwendungsgebiete für 
den DIR-LISTER. Er kann bei der Suche nach einer 
bestimmten Datei behilflich sein und außerdem zur 
Ausgabe eines Verzeichnisses sämtlicher Dateien einer 
Diskette dienen. Somit kann der Benutzer sich sehr 
leicht eine Übersicht aller vorhandenen Dateien er- 
stellen. Für Festplatten-Besitzer gilt natürlich entspre- 
chendes. Das Programm wurde mit Hilfe des MCC- 
Assemblers erstellt und läuft unter TOS. 
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****************************************** 


* 

* 

* 

* 

* 

* 

* 

* 


DIR-LISTER 
f ür 

ATARI ST 


* 

* 

* 

* 

* 

* 

* 

* 


****************************************** 



TEXT 



GEMDOS 

equ. 

$01 

GEMDOS-Trap 

PRTLINE 

equ 

$09 

Textausgabe 

F’RTOUT 

equ 

$05 

Textausga.be auf Drucker 

READLINE 

equ 

$0A 

Textei nqabe 

SETDTA 

equ 

$1 A 

DTABUFFER setzen 

TERM 

equ 

$00 

Programmende 

CONIN 

equ 

$01 

Eingabe eines Zeichens 

CONOUT 

equ 

$02 

Ausgabe eines Zeichens 

SETDRV 

equ 

$0E 

Festlegung des Laufwerks 

SFIRST 

equ 

$4E 

F i 1 esuch-Funkt i on 

SNEXT 

equ 

$4F 

Suche weiteres File 

CHDIR 

equ 

$3B 

CHDIR-Funktion 

SETBLOCK 

equ 

$4A 

Spe i cherb 1 ock reservieren 

ESC 

equ. 

$1B 

ESC-Taste 

movea. 1 4 ( sp ) 

, a5 

Basepage-Adresse in 


lea 

movea. 1 
adda. 1 
adda. 1 
adda. 1 
move . 1 
rnove. 1 
move 
move 
trap 
add. 1 
tst 
bne 
pea 
move 
trap 
addq. 1 


1 2 < a5 ) , a6 
20(a5) ,a6 
28 (a5 ) , a6 
**$ 100 , 3.6 
a6 , - ( sp ) 
a.5 , - ( sp ) 

#0, - (sp ) 
#SETBLOCK , - (sp) 
#GEMDOS 
#12, sp 
d0 

ENDE 
DTABUFF 
«SETDTA, - (sp) 
#GEMDOS 
#6 , sp 


a5 

neue Stackadresse setzen 
Textsegment 1 änge + 
Datasegment 1 änge + 
BSS-Segment 1 änge + 
Basepage 1 änge aut 
den Stack legen 
Base page- Ad resse , 
Dummywort und Funktions- 
nummer SETBLOCK auf Stack 
legen und GEHDOS au-f rufen 
Stack auf räumen 
Fehler aufgetreten? 
ja -> ENDE 
Bufferadresse auf 
den Stapel legen und 
an GEMDOS übergeben. 

Stack auf räumen 


BEGINN 

lea CURSON , a6 

bsr MONITOR 

lea TITLE, a6 

bsr MONITOR 

lea SUCHNAME, a6 

bsr MONITOR 

move . b #12,FILEN1 

pea FILEN1 

move MREADLINE, - (sp) 

trap #GEMDOS 


Cursor ein 

Kopf zeile ausgeben 

Frage nach Filename auf 
dem Monitor ausgeben 

Adresse des Eingabebuffers u 
READLINE-Funkt i ön auf Stack 
GEMDOS auf rufen 
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addq. 1 #6,sp Stack aut räumen 

tst.b d0 Zeichen eingegeben ? 

bne.s SET_F ILE ja -> Butter setzen 

rnove. 1 #$2A2E2A00, FILEN *.* als Suchname setzen 

bra.s GET_AUSG Ausgabegerät auswählen 


SET_FILE 

lea 

adda. w 
c 1 r . b 


F ILEN+2 , a6 

d0,a.6 Länge der Eingabe addieren 
(a6) Endzeichen setzen 


GET_AUSG 
1 ea 
bsr 
rnove 
trap 
addq. 1 
crnpi . b 
beq 

subi . b 
rnove . b 
1 ea 
bsr 
rnove 
trap 
addq. 1 
and i . b 
subq . b 
rnove 
rnove 
trap 
addq. 1 

rnove. 1 

bsr 

rnove 

rnove. 1 

rnove 

trap 

addq. 1 

tst.b 

bne 

1 ea 

bsr 

c 1 r . b 

1 ea 

bsr 

NOVOLUME 
bsr 
c 1 r . 1 
1 ea 
c 1 r . b 
START 

bsr . s 
ST ART 1 

bsr 
tst . b 
bne. s 


DRUCKER, a6 

MONITOR 

#CONIN, - (sp) 

8GEMD0S 

#2, sp 

#ESC , d0 

ENDE 

#43, d0 

d0, d5 

PROMT, a6 

MONITOR 

#CON IN , - (sp) 

MGEMDOS 

#2, sp 

#7, d0 

#1 ,d0 

d0, - (sp) 

#SETDRV, - (sp) 

#GEMDOS 

#4,sp 


Frage nach dem 
Monitor ausgeben 


ESC gedrückt ? 
ja -> ENDE 

ASCII von ’0’ abziehen 
in d5 abspeichern 
E i ngabeaut t orderung 

Eingabe eines Zeichens 

Stack autnäumen 
L a u t w e r k s n u rn m e r berechne n 

Drive-Nr. aut Stack 
GEMDOS-Funkt ion SETDRV 
aut r uten 
Stack au t r äurn e n 


#$5C5C0000, BUFFER Hauptdirectory 


CHNGEDIR 
#3, - (sp) 
#FILE, - <sp) 
MSFIRST, - (sp) 
MGEMDOS 
#3 , sp 
d0 

NOVOLUME 
DISKNAME, a6 
AUSGABE 
DTABUFF+44 
DTABUFF + 30, a.6 
AUSGABE 

CRLF 

dl 

BUFFER+ 1 , al 
d2 

FILEAUSG 

GETDIR 

d0 

NODIR 


aktivieren 

Attribut 3: D i sket tennarne 
Narne: *.* 

GEMDOS-Funkt ion SFIRST 
aut r uten und 
S t ac k au t r äurn e n 
Fehler autgetreten? 
ja, kein Disk narne 
"Diskname" ausgeben 

Endmarkierung setzen 
Namen der Diskette 
ausgeben 

anschließend CR fk LF 
EBENE (dl) initialisieren 
Adr. d. PATH-Butters in al 
Zahl der Subdirs in d2 


Neuen Subdir-Narnen holen 
überprüten, ob Subdir 
kein Subdir -> zurück 
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move. 1 

a 1 , - < s p ) 

rnove . b 

d3, - (sp) 

addq. b 

#1 , dl 

bsr 

SETPATH 

move . b 

#2,d2 

bra. s 

START 

NODIR 

tst.b 

dl 

beq . s 

ENDEI 

move . b 

( sp ) + , d2 

movea. 1 

(sp) + , al 

c 1 r . b 

(al ) 

bsr 

CHNGEDIR 

subq . b 

#1 , dl 

bra. s 

START 1 

ENDEI 

lea 

TASTE, a6 

bsr 

MONITOR 

move 

«CONIN, - (sp) 

t rap 

#GEMDGS 

addq . 1 

#2, sp 

b r a 

BEGINN 

ENDE 

1 ea 

CURSOFF , a6 

bsr 

MONITOR 

move 

#TERM, - (sp) 

trap 

#GEMDOS 

F ILEAUSG 

bsr 

CRLF 

1 ea 

BUFFER, a6 

bsr 

AUSGABE 

bsr 

CRLF 

movea. 1 

#FILEN, aö 

bsr 

SRCHFRST 

tst.b 

d0 

bne.s 

ZURUECK 

cmp . b 

#$10, DTABUFF+21 

beq. s 

NXTFILE 

bsr 

FILEOUT 

NXTFILE 

bsr 

SRCHNXT 

tst.b 

d0 

bne 

ZURUECK 

cmp . b 

#$10, DTABUFF+21 

beq. s 

NXTFILE 

bsr 

FILEOUT 

bra. s 

NXTFILE 

ZURUECK 

rts 


alte Endadresse auf Stack 
neue Subdir-Zahl auf Stack 
EBENE erhöhen 
neuen Pfad setzen 

neue Namen ausgeben 

EBENE = 0 

Hauptdirectory erreicht 
alte Subdir-Zahl holen 
alte Endadresse holen 
Null ans Stringende 
Ins vorige Dir zurück 
EBENE verringern 
und neues Subdir suchen 

Ausgabe der Meldung 
"Taste drücken" 

Funktion CONIN auf rufen 
Tastend r u c k e r w arten 
Stack auf raumen 
Neust art 

Cursor ausschalten 
Programm beenden 


Adresse des PATH-Buffers 
PATH ausgeben 

Adr. des Filenamens in a6 
Suche ersten Filenamen 
prüfen, ob File vorhanden 
kein File -> Subdir, 
Überprüfung, ob Subdir. 
nächstes File suchen 
File vorhanden -> ausgeben 

Suche nächstes File 
prüfen, ob File vorhanden 
kein File -> Subdir. 
Überprüfung, ob Subdir. 
nächstes File suchen 
File vorhanden -> ausgeben 
nächstes File suchen 

zurück zum Hauptprogramm 


GETDIR 

c 1 r . 1 d3 

movea. 1 #FILE,a6 

bsr SRCHFRST 

tst.b d0 

bne.s ZURUECK 

cmp.b #$10, DTABUFF+21 

bne.s NXTDIR1 


Zähler löschen 
Adresse von *.* in a6 
Suche erstes Subdir. 
Überprüfung, ob vorhanden 
kein File/Subdir. 
Überprüfung, ob Subdir 
we i tersuchen 
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addq. b 

#l,d3 

NXTDIR 

cmp . b 

d2,d3 

bgt . s 

ZURUECK 

NXTDIR1 

bsr 

SRCHNXT 

tst.b 

d0 

bne . s 

ZURUECK 

cmp. b 

#$10, DTABUFF+ 

bne. s 

NXTDIR 

addq.b 

#1 , d3 

bra. s 

NXTDIR 

SETPATH 

lea 

DTABUFF+30, a2 

MOVELP 

move . b 

(a2 ) + , (al ) + 

tst . b 

( a2) 

bne 

MOVELP 

move. b 

#’ \ ’ , (al ) + 

c 1 r . b 

(al) 

bsr 

CHNGEDIR 

r ts 

SRCHFRST 

move 

#$10, - (sp) 

move. 1 

a6, - (sp) 

move 

#SFIRST, - (sp) 

trap 

#GEMDOS 

addq. 1 

#S, sp 

r ts 

SRCHNXT 

move 

#SNEXT , - (sp) 

trap 

#GEMDOS 

addq. 1 

#2 , sp 

r ts 

FILEOUT 

cmp. b 

#1 , DTABUFF+21 

beq. s 

READONLY 

move 

#3,d6 

bsr 

SPACELP 

bra. s 

FILEOUT 1 

READONLY 

1 ea 

ROTEXT, a6 

bsr 

AUSGABE 

FILEOUT 1 


c 1 r . b 

DTABUFF+44 

lea 

DTABUFF+30, a6 

bsr 

AUSGABE 

move 

#20, d6 

sub 

d7,d6 

move 

d6, - (sp) 

move . 1 

DT ABUFF + 26 , d0 

bsr 

HEXDEZ 

move 

( sp ) + , d6 


Zähler erhöhen 

Subdir erreicht ? 
ja, zurück 

Suche nächstes Subdir. 
über pr ü-f ung , ob vorhanden 
kein File/Subdir -> zurück 
1 Überprüfung, ob Subdir 
Weitersuchen 
Zähler erhöhen 
überprüfen 


Anfang des Namens 

Übertragung des 
Subd i rectory-Namens 
in den Pfad-Buffer 


Neues Subdir. aktivieren 


Attribut: Subdirectory 
Filename auf Stack 
GEMDOS-Funktion SFIRST 
aufrufen und 
Stack auf räumen 


GEMDOS-Funktion SNEXT 
aufrufen und 
Stack auf räumen 


File schreibgeschützt? 
ja -> Ausgabe 
drei Leerzeichen 
ausgeben 

Filename ausgeben 

READ-ONLY-Str ing 
ausgeben . 


Endmark ierung 


Zahl der Zeichen bis Länge 
Länge des Filenamens subtr. 
und auf den Stack legen 

Umrechnung ins Dez. -System 
Space länge vom Stack. holen 


64 



TIPS & TRICKS! 


sub. 1 

aS, d6 

bsr 

SF'ACELP 

move . 1 

a2 , a.6 

bsr 

AUSGABE 

move 

#4, d6 

bsr 

SPACELP 

move . b 

DTABUFF+25, d0 

and i . 1 

#$lF,d0 

bsr . s 

TAGMONAT 

move 

DTABUFF+24, d0 

and i . 1 

#$01E0,d0 

asr 

#5, d0 

bsr . s 

TAGMONAT 

move 

DTABUFF+24, d0 

and i . 1 

#$FE00,d0 

asr 

#8, d0 

asr 

# 1 , d0 

add i 

#1980, d0 

bsr 

HEXDEZ 

movea. 1 

a.2 , a.6 

bsr 

AUSGABE 

move 

#4, d6 

bsr 

SPACELP 

move . b 

DTABUFF+22, d0 

and i . 1 

#$F8, d0 

asr 

#3,d0 

bsr . s 

STDMIN 

move 

DTABUFF+22, d0 

and i . 1 

#$0?E0, d0 

asr 

#5, d0 

bsr . s 

STDMIN 

move. b 

DTABUFF+23, d0 

and i . 1 

#$1F, d0 

as 1 . b 

#1 , d0 

bsr . s 

HEXDEZ 

crnpa 

#1 ,a3 

bne . s 

SEKAUSG 

subq. 1 

#1 , a2 

SEKAUSG 

movea, 1 

a2 , a6 

bsr 

AUSGABE 

bsr 

CRLF 

r ts 

TAGMONAT 

bsr . s 

HEXDEZ 

crnpa 

# 1 , a.3 

bne . s 

TGMONAT 1 

subq. 1 

# 1 , a.2 

TGMONAT 1 

movea. 1 

a2, a6 

move 

#$2E00, DEZZAHL 

bsr 

AUSGABE 

r ts 

STDMIN 

bsr. 5 

HEXDEZ 

crnpa 

# 1 , a.3 


Länge der Zahl subtrahieren 
Leerzeichen ausgeben 
Anf angsadresse der Zahl an 
a6 übergeben, dann Wert 

4 Leerzeichen 
ausgeben 

Datum laden und Bit 
0 bis 4 isolieren 
Tag ausgeben 
Datum laden und Bit 

5 bis 3 isol ieren 
Monatsbits verschieben und 
ausgeben 

Datum laden und Bit 
9 bis 15 isolieren 
Monatsbits verschieben 

Basisjahr addieren 

ins Dezimalsystem wandeln 

An-f angsadr esse übergeben 

und Zahl ausgeben 

4 Leerzeichen 

ausgeben 

Uhr zeit laden und 
Bit 11 bis 15 isolieren 
Stundenbits verschieben 
Stundenzahl ausgeben 
Uhr zeit laden und 
Bit 5 bis 10 isolieren 
M i nutenb i ts versch i eben 
Mi nuten zahl ausgeben 
Uhr zeit laden und 
Bit 0 bis 4 isolieren 
Sekundenzahl verdoppeln 
und in Dez. umwandeln 
Länge = 1 Zeichen ? 
nein -> ausgeben 
2 Zeichen ausgeben 

Adresse übergeben und 
Sekundenzahl ausgeben 
und CR/LF ausgeben. 


Umrechnung ins Dez-System 
Länge = 1 Zeichen ? 
nein -> ausgeben 
2 Zeichen ausgeben 


10 ’ . ’ und $00 ans Ende 

und Wert ausgeben 


Umrechnung ins Dez -System 
Länge = 1 Zeichen ? 
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bne. s 

STDMIN1 

subq. 1 

#1 , a2 

STDMIN1 


rnovea. 1 

a2, a6 

move 

#$3A00, DEZZAHL 

bsr . s 

AUSGABE 

rts 


CHNGEDIR 


pea 

BUFFER 

move 

#CHDIR, - (sp) 

trap 

MGEMDOS 

addq. 1 

#6 , sp 

rts 


HEXDEZ 


1 ea 

DEZZAHL, a6 

moveq 

#9,d6 

1 ea 

TABELLE, a0 

HEXDEZLP 


move. 1 

<a0) +,d4 

moveq 

#0, d? 

HXDEZLP1 


addq. b 

#1 , d7 

sub. 1 

d4,d0 

bge. s 

HXDEZLP1 

subq . b 

#1 , d7 

add. 1 

d4,d0 

add . b 

#$30, d7 

move . b 

d7, (a6) + 

dbmi 

d6, HEXDEZLP 

c 1 r . b 

(a.6) 

1 ea 

DEZZAHL, a2 

rnovea. 1 

a6, a3 

ZEROLP 


cmp . b 

#’0’ , <a2) + 

beq. s 

ZEROLP 

subq. 1 

# 1 , a2 a6 

tst.b 

( a2 ) ze 

bne . s 

NOZERO 

subq. 1 

#1 , a2 

NOZERG 


suba. 1 

a2 , ad 

rts 


SPACELP 


subq 

#1 , d6 

SPACELP 1 


lea 

SPACE, a6 

bsr . s 

AUSGABE 

dbra 

d6, SPACELP1 

rts 


MONITOR 


move . b 

d5,d6 

clr 

d5 

bsr . s 

AUSGABE 

move . b 

d6,d5 


nein -> ausgeben 
2 Zeichen ausgeben 


+10 und $00 ans Ende 

und Wert ausgeben 


Pfadadresse auf Stack 
Aufruf der GEMDOS- 
Funktion CHDIR 
Stack auf räumen 


Buf f eradresse laden 
Stellenzähler laden 
Tabellenadresse nach a? 

Stellenwert laden 
Zähler auf 0 setzen 


Tabellenwert subtrahieren 

Zähler wurde zu oft erhöht 
Wert wieder erhöhen 
Zähler auf AS'CI I -Format 


Endzeichen setzen 
Buf f eradresse laden 
Ende des Zahlenstrings laden 

Nullen am Anfang der Zahl 
1 öschen 

auf Anfang der Zahl setzen 
igt a6 auf $00 ? 

nein -> Länge bestimmen 

Länge bestimmen 


Zahl vermindern 

Adresse von Space in a6 
Ausgabe des Leerzeichens 
Wiederholung bis < 0 


Ausgabeflag sichern 
auf Bildschirmausgabe 
umschalten und Text 
ausgeben, dann Flag 
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ZURUECK1 

rts 


zurücksetzen 

CRLF 

lea 

CRLFTEXT , a6 

CR und LF ausgeben 

AUSGABE 

clr 

d7 

Zähler löschen 

AUSGBELP 

tst . b 

( a6 ) 

prüfen, ob Ende erreicht 

beq. 5 

ZURUECK 1 

ja -> zurück 

addq 

#1 ,d7 

Zähler erhöhen 

move . b 

< a.6) + , d4 

hole Zeichen und blende 

and 

«$FF,d4 

das obere Byte aus 

AUSGABE 1 

rnove 

d4, - (sp) 

ASC I I -Code auf Stack 

tst . b 

d5 


beq. s 

MON 


rnove 

«PRTOUT, - (sp) 


bra. s 

AUSGABE2 


MON 

rnove 

«CONOUT, - (sp) 

Befehl auf Stack legen 

AUSGABE2 

trap 

«GEMDOS 

und GEMDOS auf rufen 

addq. 1 

#4,sp 

Stack auf räumen 

tst.b 

d5 

Mon i tor ausgabe ? 

beq. s 

AUSGBELP 

ja -> nächstes Zeichen 

tst . b 

d0 

Druckerf ehler 

bne. s 

AUSGBELP 

nein -> nächstes Zeichen 

pea 

ERRTXT 

Druckerf eh lermel düng 

rnove 

«PRTLINE, - (sp) 

auf Bildschirm ausgeben 

trap 

«GEMDOS 

GEMDOS auf rufen 

addq. 1 

#6, sp 

Stack auf räumen 

PRINTERR 

rnove 

«CONIN , - (sp) 

Ein Zeichen mit GEMDOS- 

trap 

«GEMDOS 

Funktion CONIN einiesen 

addq. 1 

#2,sp 

Stack auf räumen 

cmp. b 

«13, d0 

RETURN-Taste ? 

beq. s 

AUSGABE 1 

Wiederholung der Ausgabe 

crnp . b 

«ESC , d0 

ESC-Taste ? 

bne. s 

PRINTERR 

Wiederholung der Abfrage 

bra 

ENDE 

Ende des Programms 



DATA 


TITLE 

de . b 

27, ’E’ ,27, ’ Y’ ,33,62 


dc.b 

’ DIR-LISTER’ ,10,13,10,13,0 

PROMT 

de . b 

10, 13, 10, 13, 'Laufwerk : ’,0 

CRLFTEXT 

de = b 

10, 13,0 

DISKNAME 

de . b 

10, 13, 10, 13, ’ Diskette: ’ , 0 

ERRTXT 

de . b 

10, 13, 10, 13, ’ Druckerf ehler ’ 


de . b 

’ [<ESC> = Prg. -Ende’ 


de . b 

’ -- < CR > = Fortsetzung] : 

DRUCKER 

de . b 

10, 13, 10, 13, ’ Ausgabegerät’ 


de . b 

’ (Monitor = <0>’ 


de . b 

’ - Drucker = < 1 > ’ 


de . b 

’ - ' Ende = <ESC>) : ’ ,0 

SPACE 

de . b 

’ ’,0 

SUCHNAME 

dc.b 

’ Suchf i lename (RETURN = *.*) 

TABELLE 

de. 1 

1 000000000 , 1 00000000 


de . 1 

10000000, 1000000, 100000 
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de. 1 

10000, 1000, 100, 10, 1 

ROTEXT 

de . b 

’ * ’ ,0 

TASTE 

de. b 

10, 13, 10, 13, ‘Taste drücken’, 0 

FILE 

de. b 

,0 

CURSON 

dc.b 

10, 13,27, ’e’ ,0 

CURSOFF 

de . b 

10, 13,27, ’f ’ ,0 


BSS 


DTABUFF 

ds. b 

46 DTABUFFER für 6EMD0S 

BUFFER 

ds. b 

250 enthält den aktuellen Pfad 

DEZZAHL 

ds. b 

12 enthält umgewandelte Dez-Zahl 

STACK 

ds . b 

1000 Stack 

FILEN1 

ds. b 

2 Länge der Eingabe 

FI LEN 

ds. b 

15 Such-Fi lename 


END 



Sortieren von ASCII-Files 

Dieses kleine C-Programm sortiert Ihre abgespe i eher ten ASCII- 
Files. Der Befehl lautet dann 

SORT QUELL_FILE ZIEL_FILE 

Das Programm wurde mit dem Megamax, sowie Lattice C-Compiler 
getestet. Auch mit dem C-Compiler des Entwicklungssystems von 
Digital Research durfte es keine Probleme geben. 

Dass Programm sollte nur von Comrnand aus gestartet werden. 

/* ASCII - Datei Sortieren 6.11.86 / ekw */ 

#define int short 

ttinclude "osbind.h" 

#include " stdio.h" 


main (arge, argv) 
int arge; 
char #argvt3j 

reg i ster int i , j , k; 

FILE *fp; 

reg i ster char *s; 

char #f gets ( ) ; 

char buf C 27000 3 ; 

char *pt 12003; 

int sep ( ) ; 

int c ; 

s=buf ; 

if (arge (=3) { 

pr i ntf ( ” \ n Format: SORT SOURCE_FILE DEST INATION_F ILE \ n " ) j 
Crawc i n ( ) 5 
exit ( 1 ) ; 
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i-f ( (-f p=fopen (argvt 1 3 , "r " ) ) ==NULL) { 
pr i nt-f ( "F i 1 e not -foundNn"); 
Crawc i n ( ) j 
exit(l) ; 


k=0; 

whi le(-fgets(s,82,-fp) != NULL) t 

i-f <*s > 32) { 

ptk + + 3=sJ 
whi le (*s++) 5 

> 

> 

•fc lose <-f p) ; 


f or < i=05 i<k-l 5 i++) < 

s=pt i 3 5 

f or ( j = i + 1 5 j < k ; j + + ) i 

i-f <c=scp <s, pt j 3 ) ) < 

pt i 3=pt j 3 5 
pt j 3=s; 
s=pt i 3 5 
3 

> 

pr- i nt-f ("%s*,s> { 

} 

i -f ( (-f p=-f open ( argvt 2 3 , " w" ) ) ==NULL ) l 
pr int-f < "Wnite Error\n”)5 
Crawc i n ( ) > 
exit(l) 5 


-f or ( i —0 ; i < k ; i + + ) t 

f puts < pt i 3 , -f p) 5 

} 

putc ( 13, -f p) 5 
putc ( 10 , -f p ) 5 

•fc lose (-f p) » 

print-f ( "Sn ok. \n" > ; 
Crawc in ( ) 5 


int scp(a,b) 
register char #a, #b; 

{ 

while<*a) t 

i-f (#a > *b) return(i); 
i-f(#a+ + < *b++) return(0)} 

} 

return (0) » 


} 
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TIPS & TRICKSI 


Slowdown 


Ein Rechner kann normalerweise nicht schnell genug 
sein und alle Benutzer schreien nach noch schnelleren 
Computern. Aber hat es nicht schon jeder einmal er- 
lebt, daß eine Bildschirmausgabe auf die Verarbei- 
tungsgeschwindigkeit des menschlichen Geistes über- 
haupt keine Rücksicht nimmt? Oder der Highscore 
eines Computerspiels für den mit einer durchschnitt- 
lichen Reaktionszeit ausgestatteten normaler Anwen- 
der absolut unerreichbar bleibt? Könnte der Compu- 
ter nicht ein wenig langsamer sein? 

Er kann: Mit dem Programm ,, SLOWDOWN“ läßt 
sich der ST bis auf ein Drittel seiner ursprünglichen 
Geschwindigkeit zurückdrosseln. Alles läuft praktisch 
nur noch in Zeitlupe ab. 


WIE FUNKTIONIERT DAS PROGRAMM? 


Jeder, der sich schon einmal näher mit Atari ST be- 
schäftigt hat, weiß, daß in seinem Inneren der mächti- 
ge Prozessor 68000 von Motorola seinen Dienst ver- 
richtet und den ST auch zu einer anständigen Arbeits- 
geschwindigkeit verhilft. Dieser Prozessor besitzt nun 
neben vielen anderen schönen Eigenschaften auch die 
Möglichkeit, einzelne Befehle im sogenannten Trace- 
Betrieb abzuarbeiten. Dafür hat der 68000 in seinem 
Statusregister eine eigene Flag. Wird sie von einem 
Programm gesetzt, springt der Prozessor vor der Ab- 
arbeitung des nächsten Befehls über den Ausnahme- 
vektor #9 in eine spezille Routine. Hier können nun 
das laufende Programm analysiert oder ähnliche 
Dinge im System verrichtet werden. Das Programm 
,, SLOWDOWN“ benutzt nun gerade diese Möglich- 
keit und „traced“ praktisch jeden Befehl. Die Folge 
ist natürlich, daß das ganze System entsprechend 
verlangsamt wird. 

Das Programm „SLOWDOWN“ wird in den Rech- 
ner eingeladen und macht nun zunächst überhaupt 
nichts. Wird jetzt allerdings die Tastenkombination 
ALT+HELP, die normalerweise eine Hardcopy des 
Bildschirms veranlaßt, gedrückt, so wird jeder Prozes- 
sorbefehl getraced und der Rechner wird entsprechend 
gebr ems t. Ein erneuter Druck veranlaßt den ST, wie- 
der seine normale Arbeitsgeschwindigkeit anzuneh- 
men. Programme, bei denen keine Hardcopy möglich 
ist, lassen sich so leider auch nicht durch „SLOW- 
DOWN“ beirren. 

Das Programm läuft sonst auf allen ST’s — mit oder 
ohne ROM. Es ist vollständig in Assembler geschrie- 
ben. Wer keinen Assembler zur Verfügung hat, kann 
das GFA-Basiclisting eingeben. Es erzeugt eine lauf- 
fähige Datei direkt auf Diskette. 
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TIPS & TRICKS! 


Assernb 1 er 1 i st i ng zu ’SLGWDOWN’ 
**************************************** 


* SLOWDOWN . S 

V. 1 .0 


* 

* 



* 

* 



* 

* ALT/HELP --> Slow 

- Fast 


* 

**************************************** 

GEMDOS 

1 

m 

9 

Gemdosau-f ruf . 

SUPER 

$20 

5 

Supervisor ein/ aus 

KEEP 

$31 

» 

* 

Keep Process. 

DUMPFLG 

$4EE 

m 

5 

Har dcopy-f 1 ag . 






MAIN: 9RA INSTALL ; Vektoren installieren. 

* * 

newtrace: 

TST TFLG j Trace-flag gesetzt ? 

BEO NO_MORE ; nein. 

BSET #7, (SP) 5 Tracebit setzen. 

; Hier ein paar NOP’s und es wird noch 

; 1 angsarner .... 

5 nop" 

; NOP 


NO_MORE 

V 

RTE 

■ 

BCLR 

RTE 

«7, (SP) 

• 

9 

■ 

9 

Tracebit loeschen. 

- - -¥• 

TT 





vbli : 






TST 

DUMPFLG 

• 

9 

ALT-HELP qedrueckt ? 


BNE 

GOOLD 

• 

9 

Ne i n . 


BSR 

EFFECT 

B 

J 

Bild invertieren. 




B 

9 

(optional ) 


BSET 

#7, (SP) 

B 

9 

Tracebit setzen. 


EOR 

#- 1 , TFLG 

B 

9 

Trace-flag ein o. aus. 


MOVE 

#-l, DUMPFLG 

B 

9 

ALT-HELP Flag loeschen. 

goold: 






DC. W 

$4EF9 

B 

9 

Sprung zur alten VBL- 

oldvbl: 

DC.L 

-1 

B 

9 

Rout i ne. 

V 





TT 




A 

EFFECT: 


- 




BSR 

EFF 

m 

9 

Routine invertiert kurz 

eff: 



m 

9 

den Screen. 


MOVEM.L 

D0/A0, - (SP) 

• 

9 

Kann weggelassen werden 


MOVE . L 

$44E , A0 

9 

(siehe oben ) . 


MOVE 

#8000- 1,D0 



EFF_01 : 

EOR. L 

#-l , <A0) + 




DBRA 

D0,EFF_01 




MOVEM.L 

(SP) +, D0/A0 




RTS 




* 




* 

TFLG: 

DC. W 

0 







SL 

A 




TV 

INSTALL 

m 

m 





CLR.L 

- (SP) 

■ 

9 

Supermodus ein. 


MOVE 

#SUPER , - (SP) 




TRAP 

#GEMDOS 




71 



■ TIPS & TRICKS 


LEA 

6 ( SP) ,SP 



MOVE.L 

D0, OLDSP 

a 

* 

Stackpointer sichern. 

MOVE 

SR , D0 

m 

9 

Statusregister sichern. 

OR 

#$700, SR 

■ 

9 

Interrupts aus. 

MOVE.L 

#NEWTRACE , $24 

a 

9 

Neuen Tracevektor eintragen. 

MOVE.L 

$70 , OLDVBL 

■ 

* 

Alten VBL-Vektor sichern. 

MOVE.L 

#VBLI ,$70 

a 

9 

Neuen VBL-Vektor eintragen. 

MOVE 

D0, SR 

• 

9 

Interrupts ein. 

MOVE.L 

OLDSP, - (SP) 

a 

9 

Zurück in den User-Modus. 

MOVE 

#SUPER, - (SP) 



TRAP 

#GEMDOS 



LEA 

6 ( SP ) ,SP 


- 

CLR.L 

- (SP) 

a 

9 

Programm verlassen. 

MOVE.L 

#INSTALL-MAIN+$100, - (SP) 

MOVE 

#KEEP, - (SP) 

9 

9 

Speicherplatz nicht 

TRAP 

#GEMDOS 

a 

9 

-freigeben. 


* * 

.BSS 

oldsp: ds.l i 

* ---* 

GFA-Basic 1 i st i ng zu ’SLOWDOWN’. 

’ DATAGENERATOR V.1.0 
Open "0",#1, ■ \SLOWDOWN. TOS" 

Sum=0 
Zei le=l 
Do 

Read A$ 

Exit 1+ A$= "-1" 

B$ = " 8c " + A$ 

A=Val <B$) 

I-f A >=8cH1000 

Print " DATAZEILE Zeile? 

I-f Surn-A-8cH1000 
Print " OK" 

Else 

Print ■ FEHLER" 

Stop 
End i -f 
Sum=0 
Inc Zeile 


A=0 

Else 

Out #1 , A 

End i-f 
Sum=Surn + A 
Loop 
Close #1 

Data 60, 1A, 00, 00, 00, B0, 00, 00, 00, 00, 112A 
Data 00 , 00 , 00 , 04 , 00 , 00 , 00 , 00 , 00 ,00,1 004 
Data 00,00,00,00,00,00,00,00,60,00, 1060 
Data 00 , 5E , 4 A , 79 , 00 , 00 , 00 , 5E , 67 , 00 , 11E6 
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Data 00, 08, 08, D7, 00, 07, 4E, 73, 08, 97, 124E 
Data 00 , 07 , 4E , 73 , 4A , 78 , 04 , EE , 66 , 00 , 12E2 
Data 00, 18,61,00,00, 1A, 08, D7, 00, 07, 1179 
Data 0A, 79, FF, FF, 00, 00, 00, 5E, 31, FC, 140C 
Data FF,FF,04,EE,4E,F9,FF,FF,FF,FF, 1833 
Data 61, 00, 00, 02, 48, E7, 80, 80, 20, 78, 132A 
Data 04,4E,30,3C, 1F, 3F , 0A, 98, FF, FF, 13BC 
Data FF , FF , 51 , C8 , FF , F8 , 4C , DF ,01,01, 163B 
Data 4E , 75 , 00, 00 , 42 , A7 , 3F , 3C , 00 , 20, 1247 
Data 4E ,41, 4F , EF , 00 , 06 , 23 , C0 , 00 , 00 , 12B6 
Data 00 , B0, 40 , C0 , 00, 7C , 07 , 00, 21 , FC , 1350 
Data 00, 00, 00, 04, 00, 24, 23, F8, 00, 70, 11B3 
Data 00, 00, 00, 3A, 21, FC, 00, 00, 00, 1A, 1171 
Data 00 , 70 , 46 , C0 , 2F , 39 , 00 , 00 , 00 , B0 , 128E 
Data 3F , 3C , 00 , 20 , 4E , 4 1 , 4F , EF , 00 , 06 , 126E 
Data 42 , A7 , 2F , 3C , 00 , 00 , 01 , 60 , 3F , 3C , 1230 
Data 00, 3 1,4E, 41 ,00,00,00,06,28,40, 11 2E 
Data 0C,0A,06,0A, 1026 
Data -1 


Haben Sie sich nicht auch schon öfters geärgert, daß 
Sie nicht den gesamten ROM-Speicher Ihres Ataris 
auf einer einzigen Diskette unterbringen können, da 
das GEM Formatierungsprogramm „nur“ 720 KB 
schafft? 

Damit kann ab jetzt Schluß sein, denn wenn Sie 
das nachfolgende Assemblerlistung in Ihren Computer 
eingeben, schafft Ihre Diskettenstation, vorausgesetzt 
Sie sind im Besitz einer SF 314, pro Diskette einen 
freien Speicherplatz von fast 930 KB. 

Das Listing ist umfangreich dokumentiert, so daß 
Sie keine Probleme damit haben werden. 


Gl 1 

Gl 2 

CMD 

TRK 

SEKT 

DAT 

FLOCK 

SECLEN 

INTERL 

SEPT 

MAXTRK 

CR 

LF 

GEMDOS , 

XBIOS 

SUPER 

PRINT 

DIRCON 

PROTOBT 

FLOPWR 


$FFFF8800 

GI1+2 

$80 

$82 

$84 

$86 

$43E 


2 

6 

11 

83 

13 
10 
1 

14 
$20 

$9 

$7 

$12 

$9 


**************************************** 


YM Register lesen+selekt 
schrei ben 
Register WD 1772 


VBL Floppy-flag 
Sektorlaenge = 512 Bytes 
Interleave Faktor 
Sektoren pro Track 
Nurnber of Tracks 
Return . , 

L i neFeed . 

Gemdosauf ruf . 

XBiosauf ruf . 

Supervisor umschalten. 
Print Line. 

Direct CON in ohne Echo. 
Bootsector generieren. 
Sektoren schreiben. 
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START: 


AGAIN: 



CLR.L 

- (SP) 

j Ganze Routinen irn Supervisor. 

MOVE 

#SUPER, 

- (SP) 



TRAP 

#GEMDOS 




LEA 

6 ( SP ) ,SP 




MOVE. 

L D0, OLDSSP 



LEA 

IDENT, A0 


• 

9 

Ueberschr i-f t ausgeben. 

BSR 

PRTS 




BSR 

INKEY 


• 

9 

Auf Taste warten. 

CMP.B 

#*1B,D0 

m 

9 

Falls ESC dann Abbruch 

BEQ 

EXIT 


■ 

9 


LEA 

PRCLR, A0 


■ 

9 


BSR 

PRTS 


* 

J 

Clear Screen. 

MOVE. 

L #$FFFF8606, A6 

■ 

9 

F'loppyregister (indirekt). 

MOVE 

#- 1 , FLOCK 

m 

9 

Floppy VBI-Routine sperren. 

MOVE. 

B #0 , D0 


m 

9 

Laufwerk A 

MOVE. 

B #0, Dl 


m 

9 

Seite 0 

BSR 

SELEKT 




BSR 

RESTORE 


• 

9 

Kopf auf Spur 0. 

CLR . B 

SIDENO 


■ 

9 

Start 0 

CLR. B 

TRKNO 


m 

9 

Track 0 

mloop: 

LEA 

HEX, A0 


; Trac krummer umrechnen 


MOVE . B 

TRKNO, D0 


5 in Hex (2 Digits) . 


LSR. B 

«4, D 0 


• 

9 


AND 

#*F,D0 


■ 

9 


MOVE . B 

0 ( A0, D0) , NUM 


■ 

9 


MOVE . B 

TRKNO, D0 


• 

9 


AND 

#$F,D0 


m 

9 


MOVE . B 

0(A0,D0) , NUM+ 1 


m 

9 

9 


LEA 

STRING1 1 , A0 


9 

5 Und ausgeben... 


BSR 

PRTS 




MOVE. B 

«0, D0 


5 Laufwerk A 


MOVE. B 

SIDENO, Dl 


j Seite 0 


BSR 

SELEKT 


; Laufwerk selektieren. 


BSR 

SETBUF 


» Puffer fuellen. 


BSR 

WRTRK 


j Track formatieren. 


ADD. B 

#1, SIDENO 


; Seite 0 


CMP.B 

#2, SIDENO 


; und auch fuer Seite 1. 


BNE 

MLOOP 


• 

> 


CLR.B 

SIDENO 


i naechster Track. 


ADD. B 

#1, TRKNO 


• 

i 


CMP.B 

#MAXTRK , TRKNO 


5 letzter Track erreicht ? 


BEQ 

CONT 


5 j a. 


BSR 

STEP IN 


5 sonst formatieren... 


BRA 

MLOOP 



cont: 

BSR 

RESTORE 


j Kopf auf Spur 0. 


BSR 

CLBU 


j Clear buff er. 
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LEA 

BOOT, A0 

m 

9 

Bilde Bootsektor im 


LEA 

BUFFER, Al 

• 

9 

Bu-f -f er . 


MOVE 

#40- 1 , D5 



cgbt: 






MOVE . B 

( A0) + , (Al ) + 




DBRA 

D5 , COBT 




CLR 

- (SP) 

■ 

9 

Protobt 


MOVE 

#-l , - (SP) 

9 

schreibe neue Serienni 


MOVE . L 

#$01000000, - (SP) 

9 



PEA 

BUFFER 

a 

9 



MOVE 

#PROTOBT , - (SP) 

m 

9 



TRAP 

#XBIOS 

■ 

9 



LEA 

14 (SP) ,SP 

a 

9 



MOVE 

# 1 , D6 

m 

9 

Sektor 1 


CLR 

D5 

a 

9 

Seite 0 


BSR 

WR_SEC 

5 

Schreibe Bootsektor. 


BSR 

CLBU 

* 

9 

Clear Buffer 


MOVE 

#1 , D5 

a 

9 

Leeren Sektor 


BSR 

WR_SEC 

t 

9 

auf Seite 1 schreiben 


MOVE 

#2,D6 

a 

9 

Leersektoren schreibe 

clear; 



a 

9 

ab Sektor 2 


CLR 

D5 

m 

9 

Seite 0 und 


BSR 

WR_SEC 

■ 

9 

Seite 1 fuer 


MOVE 

#1,D5 

a 

9 

FAT’s , etc . . . 


BSR 

WR_SEC 

a 

9 



ADD 

#1 , D6 

a 

9 

Letzter Leersektor ? 


CMP 

#12, D6 

B 

9 



BNE 

CLEAR 

B 

9 

nein. 


BRA 

AGA IN 

B 

9 

Disk fertig.... 

**************************************** 

exit: 






CLR 

FLOCK 

9 

9 

Floppy VBL freigeben. 


MOVE . L 

OLDSSP, - (SP) 

m 

9 

In Usermodus zurueck. 


MOVE 

#SUPER , - (SP) 




TRAP ’ 

#GEMDOS 




LEA 

6 ( SP ) , SP 




CLR 

- (SP) 

B 

9 

Zum Desktop. . . . 


TRAP 

#GEMDOS 




**************************************** 

stepin: 

MOVE #$50, D6 5 Stepin mit update... 

BRA FLGPCMDS 

**************************************** 

restore: 


CLR D6 ; Kopf auf Track 0 

CLR.B TRKNG 

**************************************** 

FLOPCMDS: 5 CMD in B6 -- (06=0: OK B6=- 1 : Feh 1 er ) 


MOVEM.L D5/D7, - (SP) 

AND.B #$F0,D6 i (D0 enthaelt Status) 
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OR.B 

#*03, D6 

• 

9 

3 ms - no verify - Spin up Seq. 


MOVE . L 

#*40000, D5 

9 

9 

Timeout fuer WD-Crnd. 

• 

MOVE 

#CHD , <A6) 

• 

9 

CHD Reg. selektieren. 


BSR 

RDISKCT 

■ 

9 

Status lesen - Motor on ? 


BTST 

#7 , D0 

■ 

9 

Motor laeuft noch ? 


BNE 

HTON 

• 

9 

Jä . 

mton: 

HOVE . L 
HOVE 

#*60000, D 5 
D6,D7 

• 

9 

Sonst Timout erhöhen. 


BSR 

WDISKCT 

• 

9 

Befehl ins CMD-Reg. schreiben. 

cmwait: 

SUB.L 

#1 , D5 

■ 

9 

Timeout -1. 


BEß 

CHDERR 

• 

9 

Cmd abbrechen. 


BTST 

BNE 

#5, *FFFFFA01 
CHWAIT 

■ 

9 

WD 1772 fertig ? 


BSR 

RDISKCT 

• 

9 

Status nach D0 


CLR 

D6 

• 

9 

Befehl erf olgreich. . . 

cmdex: 

MOVEM.L 

RTS 

(SP) +,D5/D7 

a 

9 

zurueck . 

cmderr: 


BSR.S 

FORCEI 

9 

9 

Befehl unterbrechen. 


HOVE 

BRA.S 

#- 1 , D6 

CHDEX 

9 

9 

Befehl nicht erf o 1 gre i ch . . . 

**************************************** 

forcei: 


MOVE 

#CHD , (A6) 

9 

9 

Crnd-Register . 


MOVE 

BSR 

#*D0,D7 

WDISKCT 

9 

9 

Force Interrupt. 

cmdwa: 

HOVE 

DBRA 

#*F , D7 

D7 , CHDWA 

0 

9 

Warte einen Moment... 


BSR 

RDISKCT 

0 

9 

Status lesen --> D0 


RTS 


**************************************** 


WDISKCT: 


• 

5 

Schreibe WD 

BSR 

WAITI 



MOVE 

D7,*FFFFS604 

0 

9 

Schreibe WD-1772 Reg 

BRA 

WAITI 



RDISKCT: 


9 

Lese WD-- >D0 

BSR 

WAITI 



MOVE 

*FFFF8604, D0 



waiti: 




MOVE 

D7, - (SP) 

0 

9 

Wartesch 1 e i f e. 

MOVE 

#*20, D7 



WA01: DBRA 

D7 , WA01 



MOVE 

(SP) +,D7 



RTS 

, < 




**************************************** 


selekt: 


ADD. B 

#1 , D0 

9 

v ? 

D0 --> 0=Laufwk A 

LSL.B 

# 1 , D.0 

t 

J 

l=Laufwk B 

OR.B 

Dl , D0 

• 

Dl. --> 0=Sei te 0 

EOR . B 

#7 , D0 

• 

i=Sei te 1 

AND. B 

#7 , D0 



MOVE 

SR, - (SP) 

• 

9 

Interrupts sperren. 

OR 

#*700, SR 
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MOVE.B 

«$E,GI1 

> 

9 

Reg. sektieren. 


MOVE.B 

Gl 1 , Dl 

• 

9 

Reg. lesen. 


AND. B 

«$F8,D1 

• 

9 

Bits 0-2 loeschen. 


OR.B 

D0, Dl 

a 

9 

Bits setzen. 


MOVE . B 

Dl , GI2 

• 

9 

Reg. schreiben. 


MOVE 

(SP) +,SR 

• 

9 

Interrupt enable. 


RTS 




**************************************** 

setbuf: 






MOVE.B 

« 1 , D3 

• 

9 

Beginnen mit Sector 1. 


LEA 

BUFFER, A2 

• 

9 

Trackpu-f f er 


MOVE 

«04-1, Dl 

a 

9 

Trackvorspann mit (GAP I) 


MOVE.B 

«$4E,D0 

• 

9 

04 x $4e 


BSR 

WBUFF 



SE025: 






MOVE 

D3,D4 



SE02: 






MOVE 

«02-1, Dl 

■ 

9 

02 x $00 


CLR.B 

D0 




BSR 

WBUFF 




MOVE 

«3-1, Dl 

a 

9 

3 x $t5 


MOVE.B 

«$F5,D0 

■ 

9 

Al in MFM 


BSR 

WBUFF 




MOVE.B 

«$FE, ( A2 ) + 

a 

9 

ID Address Mark 


MOVE.B 

TRKNO, ( A2 ) + 

• 

9 

Tracknummer 


MOVE . B 

SIDENO, ( A2 ) + 

* 

9 

Seite 


MOVE.B 

D4 , ( A2 ) + 

• 

9 

Sektornummer 


MOVE.B 

«SECLEN, (A2) + 

• 

9 

Sektorgroesse (2=512 Bytes) 


MOVE . B 

«SF7 (A9U 

•• — • ' J »•••-' ‘ 

a 

5 

CRC Bytes schreiben 


MOVE 

«22-1, Dl 

• 

9 

22 x $4e 


MOVE.B 

«$4E,D0 

a 

9 

( GAP II) 


BSR 

WBUFF 



• 

MOVE 

«12-1, Dl 

* 

9 

12 x 00 


CLR.B 

D0 




BSR 

WBUFF 




MOVE 

«3-1, Dl 

5 

3 x $+5 


MOVE.B 

«$F5,D0 

a 

9 

Al in MFM 


BSR 

WBUFF 




MOVE . B 

«SFB, ( A2) + 

a 

9 

Data Adress Mark 


MOVE 

«512-1 , Dl 

a 

9 

512 x Virgin 


LEA 

IDENT, A0 



SE0i: 






MOVE . B 

<A0) +, <A2) + 




BNE.S 

SE03 


' 


LEA 

IDENT, A0 



SE03: 






DBRA . S 

Dl , SE01 




MOVE.B 

«$F7, ( A2 ) + 

a 

9 

CRC Bytes 
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MOVE 

#02-1 , Dl 

9 

9 

02 x $4e 

MOVE. B 

#$4E,D0 

9 

9 

( GAP III ) 

BSR 

WBUFF 



ADD 

#INTERL,D4 

• 

9 

Inter leave addieren. 

CMP . W 

#SEPT,D4 

m 

9 

Sektoren pro Track erreicht 

BLE 

SE02 

■ 

9 

nein. 

ADD 

#1 , D3 

m 

9 


CMP 

# INTERL , D3 



BLE 

SE025 





MOVE 

#1000-1, Dl 

* 

Sektorende -fuellen. 


MOVE. B 

#$4E,D0 



WBUFF: 

MOVE. B 

D0, ( A2 ) + 

• 

9 

Daten in Pu-f-fer schreiben 


DBRA . S 

Dl, WBUFF 



seend: 

RTS 




**************************************** 

wrtrk: 

MOVE . L 

#BUFFER, D0 




MOVE . B 

D0,$FFFF860D 

9 

9 

DMA-Low 


LSR.L 

#8 , D0 




MOVE . B 

D0,*FFFF860B 

• 

9 

DMA -Mid 


LSR.L 

#8, D0 




MOVE . B 

D0,$FFFF8609 

w 

9 

DMA-High 


MOVE 

#$190, ( A6 ) 

n 

9 

DMA Status loeschen 


MOVE 

#$90, ( A6 ) 




MOVE 

#$190, ( A6 ) 

■ 

9 

DMA auf Write 


MOVE 

#31, D7 

■ 

9 

DMA Sektor Count auf 31 


BSR 

WDISKCT 




MOVE 

#$180, (A6) 

m 

9 

1772 selektieren. 


MOVE 

#$F0, D7 

• 

9 

Write tr ack . . . 


BSR 

WDISKCT 




MOVE . L 

#$40000, D5 



teaga: 

BTST 

#5 , $FFFFFA01 

9 

1772 fertig ? 


BE0 

MFPOK 




SUB.L 

#1 , D5 




BNE 

TEAGA 




BSR 

FORCEI 




LEA 

FORMERR, A0 

a 

9 

Timer abgelaufen. 


BRA 

PRTS 



mfpok: 

LEA 

FORMOK, A0 

■ 

9 

Track ok. 


BRA 

PRTS 



**************************************** 

clbu: 

MOVE 

#127, D4 

9 

9 

Clear Puffer. 


LEA 

BUFFER, A0 




CLBl 
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CLR.L (A0) + 

DBRA.S DA , CLB 1 
RTS 

**************************************** 

wr_sec: 


MOVE 

#1 , - (SP) 

; 1 Sektor 

schreiben 

MOVE 

D5, - (SP) 

; Seite 


CLR 

- ( SP ) 

; Track # 


MOVE 

D6, - (SP) 

5 Sektor # 


MOVE 

«0, - (SP) 

; Lau-fwerk 

A 

CLR.L 

- (SP) 



PEA 

BUFFER 



MOVE 

#FLOPWR, - (SP) 



TRAP 

#XBIOS 



LEA 

20 ( SP ) , SP 



RTS 





**************************************** 

PRTS: 


MOVE.L A0 , - ( SP ) ; Print Line. 

MO VE #PRINT , - ( SP ) 

TRAP #GEMDOS 

LEA 6 (SP), SP 

RTS 


**************************************** 

INKEY: 

MOVE 8DIRC0N , - (SP ) ; Wait Tor Key. 

TRAP MGEMDOS 

ADD6I.L #2, SP 
RTS 


F 

F 

F 

F 

¥ 

F 

R, LF 


**************************************** 


hex: 

DC.B 

"0123456789ABCDEF 11 


F'RCLR: 

DC.B 

$1B, M E M ,0 


IDENT: 

DC.B 

$1 B , " E ” , $ 1 B , T,$ 1B, "bl” 



DC.B 

" ****************************************" , CR, L 


DC.B 

”* 

*”,CR,L 


DC.B 

”* 

*” ,CR,L 


DC.B 

”* SUPERFORMAT Vers. 1.0 

*”,CR,L 


DC.B 

”* =-==-== 

*”,CR,L 


DC.B 

"* Nur -für doppe 1 sei t i qe Floppies ! 

*" ,CR,L 


DC. B 

"* 923648 -freie Bytes 

*",CR,L 


DC.B 

"****************************************" , LF , C 


DC.B 

Bitte Disk in Lau-fwerk A einlegen” 

, CR , LF 


DC.B 

Taste druecken - ESC fuer Abbruch” 

, CR , LF , 0 

STRING1 1 : 

DC.B 

CR,” Formatiere Track “ 


num: 

DC.B 

”00. ” ,0 


formok: 

DC.B 

” OK ”,0 


formerr: 

DC.B 

” FEHLER ! ” , 0 


.EVEN 
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boot: 

DC. W 

$0 , $0 , 

$0 , $0 , $3DF8 , $0300 , $0202 ,$0100, $0270 , $0022 


DC. W 

$0?F9, 

$0500 , $0B00 , $0200 , $00 , $00 , $00 , $00 , $00 , $00, 



$00 


.EVEN 
. B3S 

oldssp: 

DS.L 

1 

5 Alter SSP 

trkno: 

DS. B 

1 

5 Aktueller Track 

sideno: 

DS. B 

1 

5 Seite 

secno: 

.EVEN 

BUFFER: 

DS . B 

1 

5 Aktueller Sector 


Optimiertes programieren 
in GFÄ-BASIC 


Dieser Artikel soll Ihnen 
einige Tips und Tricks 
verraten, die Ihre BASIC- 
Programme beschleuni- 
gen. Wir verwenden da- 
bei den GfA-B ASIC-Inter- 
preter. Die hier vermittel- 
ten Informationen gelten 
jedoch grundsätzlich für 
fast alle BASIC-Versio- 
nen, so daß Sie — auch 
wenn Sie in ST- oder Omi- 
kron-BASIC programmie- 
ren, diese Anregungen be- 
rücksichtigen sollten. 

Wir stellen hier immer 
zwei fast identische Pro- 
gramme gegenüber, die 
den gleichen Zweck erfül- 
len, sich jedoch in der 
Ausführungsgeschwindig- 
keit stark unterscheiden. 
Die Leistungsdifferenzen 
geben wir in Prozent an, 
da die absoluten Zeit- 
werte uninteressant sind 
und von der jeweiligen 
Schleifenlänge abhängen. 

Das erste Beispiel zeigt, 
daß man als Schleifen- 
zähler einer FOR-NEXT- 
Schleife stets eine Integer- 
Variable verwenden soll- 
te, sofern es die Problem- 
stellung natürlich zuläßt. 
Das Programm lb benö- 
tigt ganze 66 Prozent 
weniger Zeit als das fast 
identische Programm la: 

Programm la: Zeit: 100% 
For 1=1 to 2000 Next I 
Programm lb: Zeit 34% 
For I%=1 to 20000 
Next 1% 


GfA-BASIC verfügt über 
die assemblerähnlichen 
Befehle INC und DEC 
zur Inkrementierung und 
Dekrementierung von Va- 
riablen. Der Befehl 
INC A 

entspricht der Anweisung 
A=A+1 



Vielen GfA-BASIC-Pro- 
grammierern sind diese 
Befehle unbekannt, da sie 
zuvor mit anderen, nicht 
so leistungsfähigen Inter- 
pretern gearbeitet haben. 
Es lohnt sich jedoch, die- 
se Möglichkeiten zu nut- 
zen, da sie eine große 
Zeitersparnis bringen. 

Programm 2a: Zeit: 100% 
For I%=1 To 2000 
A=A+I 
Next 1% 

Programm 2b: Zeit: 62% 
For I%=1 To 20000 
Inc A 
Next 1% 

Ganze 38 % Arbeitszeit 
erspart dieser einfache 


Befehl in diesem Fall. 
Das gleiche gilt natürlich 
auch für den DEC-Befehl. 

Wenn man eine Variab- 
le mit einer Konstanten 
durch eine der vier Grund- 
rechenarten verknüpfen 
will, bietet GfA-BASIC je 
zwei verschiedene Mög- 
lichkeiten, die wir hier 
gegenüberstellen wollen: 
A=A+5 ADD A,5 
A=A— 5 SUB A,5 
A=A*5 MUL A,5 
A=A/5 DIV A,5 

Die beiden folgenden 
Programmbeispiele, in 
denen die Multiplikation 
betrachtet wird, verdeut- 
lichen, welche Methode 
die günstigere ist: 

Programm 3a: Zeit 100% 
For I%=1 To 20000 
A=A*1 
Next 1% 

Programm 3b: Zeit: 83% 
For I%=1 To 20000 
Mul A,1 
Next 1% 

Programm 3b benötigt 
also 17% weniger Rechen- 
zeit als die Version 3a. 
Man sollte also stets über- 
legen, ob man nicht die 
Befehle ADD, SUB, MUL 
oder DIV einsetzen kann. 

Der letzte Tip beschäf- 
tigt sich mit dem Drei- 
eckstausch. Dieser dient 
zum Austauschen von 


Variableninhalten. Wenn 
zum Beispiel die Werte 
von A und B vertauscht 
werden sollen, löst man 
dieses Problem häufig mit 
Hilfe der Hilfs variablen C: 

C=A 

A=B 

B=C 

In GfA-BASIC gibt es je- 
doch den SWÄP-Befehl, 
der dieses Verfahren über- 
flüssig macht. Statt der 
drei Befehlszeilen verwen- 
det man geschickterweise 
SWAP A,B 

wobei damit noch eine 
enorme Zeitersparnis ver- 
bunden ist. Rund 68% 
weniger Rechenzeit be- 
nötigt Programm 4b im 
Vergleich zu 4a: 

Programm 4a: Zeit 100% 

For I%=1 To 20000 

C=A 

A=B 

B=C 

Next 1% 

Programm 4b: Zeit: 32% 
For I%=1 To 20000 
Swap A,B 
Next 1% 

Ein weiterer Vorteil liegt 
natürlich darin, daß keine 
Hilfsvariable zur Zwi- 
schenspeicherung benö- 
tigt wird. 

Wir hoffen, daß Sie ei- 
nige dieser Anregungen in 
eigenen Programmen ver- 
wenden können und die- 
se damit schneller und 
leistungsfähiger werden. 
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ist in 

Fast jeder Besitzer eines Homecomputers und dazu 
zählt letztendlich auch der Atari ST wegen_seines 
erschwinglichen Preises, hat wohl schon einmal ge- 
träumt, mit einem ,, richtigen“ Großcomputer zu kom- 
munizieren. Der Traum kann sehr schnell real werden, 
glücklicherweise nicht so, wie es im Film Wargames 
dargestellt wurde, aber spannend wird es mit Sicher- 
heit oft genug werden. 

Die Hackerei, wie sie auf neudeutsch bezeichnet wird, 
läßt sich wesentlich treffender mit Datenfernübertra- 
gung beschreiben, und diese Bezeichnung klingt schon 
harmloser, wenngleich sich an der Sache nichts ändert. 
Sie bleibt auch völlig legal, niemand braucht Angst 
vor dem Staatsanwalt zu haben, solange er nur in den 
Mailboxen herumstöbert. 

Doch zuerst einmal, was benötigt der Einsteiger, um 
mit anderen Rechnern kommunizieren zu können? 

Mit der Voraussetzung, daß Sie bereits Besitzer eines 
Atari ST sind oder Vorhaben, sich demnächst einen zu 
kaufen, haben Sie schon einmal den Grundstein. Was 
nun nur noch benötigt wird, sind ein Akustikkoppler 
oder ein Modem und ein Terminalprogramm. Mit 
„Mini-Term“ stellen wir Ihnen ein solches Programm 
vor. Kaum erwähnenswert erscheint die Tatsache, daß 
noch ein Telefonapparat zur Verfügung stehen muß. □ 
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/* Terminalprogramm */ 


Verwendete Systemauf ru-f e : 

Aufrufe sind in osbind.h 
Typ long(32Bit) 


/* 

Die 

Sie sind alle 
au-f ein short 
Typeonversion 

Statusabfragen : 


vom 
(16 Bit) 
statt . 

Test, ob 


f i ndet 


def i n i er t . 
Bei Zuweisung 
eine automatische 


Device 


uebernehmen bzw. zu liefern 


Cconis ( ) 
Cconos ( ) 
Cprnos ( ) 
Caux i s ( ) 
Causos ( ) 


bereit ist, 
(0 = nein, 


Daten zu 
ja = -1) . 


Terminal Eingabe 
Terminal Ausgabe 
Drucker aus 
V24 ein 
V24 aus 


Zeichen -Ausgabe: 

Cconout (c ) 
Cprnout (c) 
Cauxout ( c ) 
Zeichen-Eingabe: 
Ccon int) 


Bi 1 dsch i rrn 

Drucker 

V24 


Tastatur , 


ic , oc , i v , ov ; 


CauxinO V24 

#include "osbind.h" 
#include " stdio.h" 

#def i ne END 26 
short prflag=i; 
short lfflag=l; 
short ecflag=l> 
char narneC 100]="test . t " ; 
mai n < ) 

{ 

reg i ster short c, 

Cconout (27) } 

Cconout ( ’ E’ ) j 
inf o ( ) ; 
pronof f ( ) 5 
autolf ( ) » 
echo ( ) j 

i v= i c=ov=oc=0 j 
while(l) { 
c=i nc ( ) ; 
if (c<0) { 

if (c== 
switch <c) i 


longword: low word: ascii 
bei Sonder tasten . 
high word: 

Tastennummer (59-68) bei 
Funktionstasten Fl - F10 
Aufruf in inc() 


/* End of File = CRTL-Z */ 
/# Drucker ein/aus 1/0 #/ 
/# Auto-LF ein/aus */ 
/* Local Echo ein/aus */ 


0 


/* clear screen */ 


-10) break; 

/* Funktionstastenverteiler 
case -1: 

pronof f ( ) 5 
break ; 
case -2: 

send ( ) 5 
break 5 
case -3: 


*/ 
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get ( ) ; 
break 5 
ca.se -4: 

autol-f ( ) ; 
breakj 
case -5: 

echot) ; 
break ; 
de-fault : 
i nf o ( ) ; 
break ; 

} 

conti nue ; 

} 


} 

> 

stcopy ( a 
req i ster 
{ 


i-f ( ! iv) iv=inv24 ( ) ; 

i-f ( ! oc ) { 

oc=iv; 
i v=0 ; 

} 

i-f (oc ) oc=out (oc ) ; 

i-f ( ! ic ) i c=c ; 

i-f ( ! ov) { 

ov=ic; 

ic=0; 

} 

i-f (ov) ov=outv24 ( ov ) ; 

b) /* String kopieren a -> b */ 

char *a, *b; 


while(*b++ = *a++); 

} 

prono-f-ft) /* Drucker ein/aus */ 

{ 


pr-flag= Ipr-flag; 
pr ( “ " ) 5 
p0 ( “Dr ucker " ) ; 
i-f(pr-flag) pr < "ein. " ) ; 
eise pr ( “aus. ” ) ; 

} 

autol-f () /* Auto-LF */ 

{ 

static char *textC23= { 

"Auto - Line Feed aus.", 

"Auto - Line Feed ein." 

5 ; 


1-f -f lag= ! 1 f -f 1 ag; 

pr ( ” " ) ; 

pr (texte r-f-f lag] ) ; 

5 

echot) /* Local Echo */ 

static char *textC23= { 

"Lokales Echo aus.", 

"Lokales Echo ein." 

3 5 

eoflag= lec-flag; 
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pr ( " " ) ; 

pr ( text C ecf 1 agl ) ; } 


send ( ) /* Datei senden */ 

{ 

FILE *-fp, *-fopen ( ) 5 
register short c,x,y,ac; 

p0( "Datei senden. "); 
i -f ( f i 1 enatne ( ) ) return(0); 
ac=x=y=c=0 ; 

i-f ( ( -f p=f open ( name, " r " ) ) ! = (FILE *)0) { 

wh i 1 e ( i nc < ) ! = - 10) { 

x=inv24 ( ) 5 

i-f(c) c=outv24 ( ac=c ) 5 
eise { /* LF --> CR+LF */ 

i-f (ac == 13) c = 1 0 5 
eise { 

i-f ( (c=getc (-f p) ) == EOF) break; 
eise i-f (c==10) c = 13; 

> 

} 

i-f (y ) y=out (y) ; 
eise y=x ; 

} 

whi le <outv24 (END) ) i-f(inc()== -10) break; 

-f c lose < -f p ) 5 

pr ( "Lieber tragung beendet"); 

> eise pr("geht nicht"); 

} 

get ( ) /* Datei einiesen */ 

{ 

FILE *-f p, *-f open ( ) ; 
register short c , x , y , p; 

pr ( " " ) ; 

p0 ("Datei empfangen. " ) 5 
i-f <f i lename ( ) ) return<0); 
p=x=y=c=0; 

i-f (( -f p=f open ( name , "w "))! = (FILE #)0) { 

wh i 1 e < ( x= i nc ( ) ) ! = -10) { 

i-f(c) { 

i -f ( ? p c ! = 10 ) putc (c,f p) ; 

if( p= ( ( c==13) && (lff lag)) ) putc ( 10, -f p) ; 
whi le (out (c) ) i-f(inc() == -10) break; 
c=0 ; 

} eise i -f < ( c= i nv24 ( > ) ==END ) break; 
i-f <x>0 && y==0) y=x ; 
eise if(x == -1) pronof-f ( > 5 
i-f(y) y=outv24(y); 

> 

■f c 1 ose ( f p ) ; 

pr ( "Lieber tragung beendet") ; 

} eise pr("geht nicht"); 

} 

filenameO /-* Dateinamen eingeben */ 

{ 

char x C 1001 ; 
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pr ( naine ) 5 
stcopy (name, x) ; 
p0 ( " neuer Name : " ) ; 
i nput < x ) 5 

i-f ( x C0]==’ \0’ ! ! x [03== ’ ’) retur n (1)5 

stcopy < x , narne ) ; 
retur n (0)5 


} 

i n f o ( ) 

{ 

pr ( " " ) 5 
pr ( "Fl : 
pr ( "F2 : 
pr ( "F3 : 
pr ( " 
pr ( ” 

p r ( " F 4 : 
pr("F5 : 
pr ( "F10: 
pr ( " " ) 5 
i nput ( s ) 
char *s5 
{ 

register short c,ecx; 
short z=05 

ecx=ec-f lag; 
ec-f 1 ag=05 

wh i 1 e ( ( c=wa itin())!=13) { 

i-f <c<=0) continue! 

i -f ( c ==s ) { /* backspace */ 

i-f(z) { 

z--5 

*<--s)=’ ’5 

Cconout (c ) 5 
Cconout < ’ ’ ) 5 

) 

> eise { 

z + + 5 

*s++ =c; 

} 

Cconout (c ) 5 

} 

inc()5 /* LF ueberlesen */ 
pr <"**) ; 


/* F-Tasten-In-fo */ 


Drucker ein/aus“); 

Datei senden"); 

Datei ernp-f angen " ) 5 

Dateiname: RETURN -> alten Namen ueber nehmen " ) 5 
SPACE + RETURN -> Abbruch"); 

Auto-Li nef eed ein/aus"); 

Lokales Echo ein/aus") 5 
Abbruch" ) 5 

/* Stringeingabe */ 


i-f (z) *s = ’ \0’ 5 
ec-f lag=ecx; 
return (c ) ; 

3 

p0(s) /* Stringausgabe */ 

char *s; 

{ 

register short c; 

while(c= *s++) Cconout(c); 
3 

pr (s) 
char *s; 

{ 
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Cconout <13)5 
Cconout ( 10) 5 


waitinO /* Tastature i nqabe mit warten */ 

{ 

register short c; 

wh i 1 e < ! < c= i nc ( ) ) ) j 
return (c ) ; 

} 


inc<) /* Tastatureingabe */ 
< /* Return=Zeichen; 0: keine Eingabe */ 
register long c,x; /* -1 ... -10: -Fl ... -fl0 */ 
static short cr-flag=0; 


i-f ( er f lag) { /* Letztes Zeichen CR: Return LF */ 

cr-f 1 ag=0; 

i-f ( ec -f lag) out (10); 
return < 10) ; 

} 

i-f ( ! Ccon is ( ) ) return<0>; /* keine Eingabe */ 
c=Crawcin<); /* Zeichen holen */ 

x= c / 65536 1 5 
c%= 655361; 

if<c) < /# ASCII - Taste */ 

i-Hl-fflag 8t8c c==131) cr-flag=l; 
i-f(ec-flag) out ( (short ) c ) ; 
return ( (short ) c ) ; 

} 


/* Sondertaste */ 

i-f(x<59 ii x>68) return (0); 

return <58- (short) x) ; /* Funktionstasten*/ 

> 

inv24() /* Zeichen von v24 holen */ 

{ 

register short c; 


i-f < ! Cauxis < ) ) return(0)5 
c= Caux i n ( ) ; 
c k= 255! 
return (c) ; 


} 

outv24 (c ) 
register short c; 

{ 

i-f ( ! Cauxos ( ) ) return (c); 

Cauxout (c ) ; 
return (0) ; 

} 

out(c) /* Zeichen au-f BS und Drucker ausgeben */ 
reqister short c; 

static short -flag=0? 


i-ftCconosO && (ipr-flag II CprnosO ) ) { 

i-f ( -f 1 ag) { 

-f 1 ag=0; 

i-f (c==10) return (0) ; } 
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i-F ( 1-f-f lag && c==13) flag=l; 
Cconout (c ) ; 

i-f (pr-f lag) Cprnout <c ) ; 
i-f (-f lag) { 

Cconout ( 10) ; 

i-f (pr-f lag) Cprnout (10) 5 

} 

return (0) ; 

} eise return ( c ) ; 

} 


17 & 4 


Unser Kartenspiel 17 & 4 läuft ausschließlich auf 
einem Atari ST in Verbindung mit einem Mono- 
chrom-Monitor. Am Anfang jedes Spiels wird bei der 
Eröffnung um den Einsatz gebeten. Ein Druck auf die 
linke Maustaste erhöht den Einsatz des Spielers um je- 
weils 5 Mark. Die rechte Maustaste setzt den Einsatz 
um 5 Mark herunter. Durch gleichzeitiges Betätigen 
beider Maustasten wird das Spiel dann gestartet. 


Möchte der Kartenspieler eine neue Karte, so erreicht 
er dies wiederum durch einen Klick mit der linken 
Maustaste. Mit der rechten Maustaste wird die Karten- 
ausgabe gestoppt. Erhält der Spieler vom Rechner 
zwei Asse, so hat er das Spiel gewonnen und der Ein- 
satz wird seinem Spielkonto gutgeschrieben. Gespielt 
wird mit einem 32er-Blatt, das nach jedem vierten 
Spiel neu gemischt wird. O 


################################### 


# # 

# Programm! 17 und 4 # 

# # 

# Autor: Cord Ahrens # 

# # 

# (c) by C A V ft 

# # 


################################### 


DIM spk% ( 32 ) t ord% ( 32 ) 
kas se 1 =200 
kasse2=50 
HI DEM 
COLOR 1 

PBOX 0,0,640,400 
@ t i t e 1 

PBOX 0,0,640,400 
spiel : 

FÜR i = 1 TO 32 

ord%( i ) = RANDOM ( 20 ) + 1 
NEXT i 
z=0 

REPEAT 
ADD z, 1 

FOR i =32 TO 1 STEP -1 
I F ord%( i ) =z THEN 
ADD aa , 1 
spk% ( aa ) = i 
END I F 
NEXT i 
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UNTIL z=21 
aa = 0 
•misch=l 


durch lauf: 

DEFFILL 0,0 
PBOX 13, 10,627,37 

PRINT AT ( 5 , 2 ); "Computer . . .Punkte . Konto. 

" ; k a s s e 1 ; " " 

PBOX 13,202,627,229 

PRINT AT ( 5 , 14 ) ; "Sp i e 1 er . . . .Punkte . : . .Konto . : . 

" ; k a s s e 2 ; " .-.Einsatz.: " 

I F m i sch= 1 


PRINT ATC63, 2) ; "Neu gemischt" 
m i sch=0 
END I F 
PAUSE 5 
DEFFILL 1,0,0 
PRBOX 15, 40, 115, 180 
DEFFILL ,2,21 
PBOX 25, 50, 105, 170 
PAUSE 15 
DEFFILL ,0,0 
PRBOX 95,44,195,154 
DEFFILL ,2,21 
PBOX 105,54, 155, 174 
bet rag=0 

PRINT AT (71, 14) jbetrag 
REPEAT 

IF MQUSEK= 1 


bet rag = betrag + 5 
END I F 

IF M0USEK=2 

betra. g = b^trag~5 
END I F 

I F b e t r a g < 0 
bet rag=0 
END 1 F 

IF betrag>kasse2 
b e t r a g = k a s s e 2 
END I F 

PRINT AT (71, 14); betrag;". 
PAUSE 5 

UNTIL M0USEK=3 
x =65 
y = 302 

GOSUB geber 
spieler=wert 
x = 1 45 
y = 305 

GOSUB geber 
wert=wert+spieler 
PRINT AT ( 25 , 14) ; wert 
spieler=wert 
I F spiel er=22 
spitze=l 
GOTO spitze 
END I F 
DO 
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TIPS & TRICKS! 


IF MOUSEK= 1 
x=x+80 
y = y + 3 

GOSUB geber 
wert=wert+spieler 
PRINT AT ( 25 , 14) ; wert 
spieler=wert 
END I F 

EX IT IF M0USEK=2 
EXIT IF spieler = > 20 
LOOP 
x =65 
y= 1 10 

GOSUB geber 
comp=wert 
x = 145 
y = 1 1 3 

GOSUB geber 
wert=wert+comp 
PRINT AT ( 25 , 2 ) ;wert 
comp = we r t 
DO 

EXIT IF spieler>21 OR comp = >20 OR comp = >spi e 1 er 
x = x +80 
y = y + 3 

GOSUB geber 
wert=wert+comp 
PRINT AT ( 25 , 2 ) ; wert 
comp=wert 
LOOP 
spitze: 

IF spitze=0 

IF (spieler<22 AND spi e 1 er >comp ) 

OR (spieler<22 ANE) comp>21) 

PRINT ATC30, 14) ; "Sieger" 
k o n t o = 2 
ELSE 

PRINT AT ( 30, 2 ) ; "Danke" 
konto= 1 
END I F 
ELSE 

PRINT AT<30\ 14) ; "Sieger" 
konto=2 
spitze=0 
END I F 
©kesse 
w e r t = 0 
comp=0 
spieler=0 
i =36 
REPEAT 
ADD i , 1 

COLOR 1 • 

LINE 2, i , 635, i 
LINE 2, i+191,635, i+191 
UNTIL i =203 
COLOR 1 

durchlauf=durchlauf+l 
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■ TIPS & TRICKS 


I F durch 1 auf =4 
as-0 

durch 1 auf =0 
GOTO spiel 
END 1 F 

GOTO durchlauf 
PROC.EDURE kasse 
1F konto=l THEN 

kassel=kassel+betrag 
kasse2=kasse2 -betrag 
ELSE 

kassel=kassel-betrag 
kasse2=kasse2+betrag 
END I F 
REPEAT 

UNT1L MOUSEKOO 
IF kasse2<l THEN 
GOSUB verloren 
END I F 

IF kasseK-O THEN 
GOSUB kasse_alle 
END I F 
RETURN 

PROCEDURE geber 
COLOR 1 
aa=aa+ 1 
s pk = spk% ( aa ) 

IF spk=l OR spk=9 OR spk=17 OR spk=25 
wert=7 
@kar 
a = x 

b=y-20 

@far 

FOR i =0. TO 40 STEP 40 
FOR w= 10 TO 90 STEP 40 
a = x -20 + i 
b=y +50- w 
®f ar 
NEXT w 
NEXT i 
END I F 

IF spk=2 OR spk= 10 OR spk=18 OR spk=26 
wer t = 8 
©kar 
a = x 

FOR w=0 TO 56 STEP 56 
b=y-28+ w 
@far 
NEXT w 

FOR i =0 TO 40 STEP 40 
FOR w=0 TO 100 STEP 50 
a= x-20+ i 
b=y +50-w 
<?f ar 
NEXT w 
NEXT i 
END I F 

IF s p k = 3 OR spk = 1 1 OR spk=19 OR spk = 27 
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TIPS & TRICKS! 


w e r t = 9 
@kar 
a = x 
b = y 
©f ar 

FOR i =0 TO 40 STEP 40 

FOR w= -2 TO 100 STEP 32 
a = x -20+ i 
b=y +46- w 
© f a r 
NEXT w 
NEXT i 
END I F 

IF spk = 4 OR s p k = 1 2 OR spk = 20 OR spk = 28 
wer t= 10 
© k a r 
a = x 

FOR w = 0 TO 60 STEP 60 
b=y-30+ w 
©f ar 
NEXT w 

FOR i =0 TO 40 STEP 40 
FOR w=0 TO 90 STEP 30 
a= x -20+ i 
b=y +46- w 
©f ar 
NEXT w 
NEXT i 
END I F 

IF spk = 5 OR s p k = 1 3 OR spk = 21 OR s P k = 29 
w e r t , = 2 
© k a r 
a = x 

b = y + 44 
@f ar 
x 1 = 10 
y 1 = - 1 0 

RESTORE bube 
FOR i = 1 TO 32 
READ x2 , y2 

DRAW x + x 1 , y + y 1 TO x + x2,y + y2 
x 1 = x2 
y l =y2 
NEXT i 

LINE x-10, y-12, x+10, y-12 
LINE x-10,y-10,x+10 t y-10 
CIRCLE x , y - 5 0 r 9 
FILL x , y-8 
END I F 

IF spk = 6 OR s p k = 1 4 OR spk = 22 OR spk = 30 
w e r t = 3 
©kar 
a = x 

b = y + 40 
©f ar 
x 1 = 1 0 
y 1 = - 14 

RESTORE dame 


91 



■ TIPS & TRICKS 



FOR i = 1 TO 20 
READ x2,y2 

DRAW x+xl,y+yl TO x+x2,y+y2 
x 1 = x 2 
yl=y2 
NEXT i 

CIRCLE x , y-48 , 6 
LINE x-4, y+26, x-8, y+26 
LINE x+4, y+26, x+8, y+26 
LINE x+6, y-10, x-9, y-16 
END I F 

IF s pk = 7 OR spk= 1 5 OR spk = 23 OR spk = 31 
w e r t = 4 
@kar 
a = x 

b=y +44 
®far 

RESTORE koenig 
FOR i = 0 TO 23 

READ xl,yl,x2,y2 
LINE x + x 1 , y +y 1 , x + x2 , y +y2 
NEXT i 

DRAW x -5, y-58 TO x,y-60 TO x+8,y-58 
CIRCLE x + 12 , y-24 , 4 
CIRCLE x , y-46 , 8 
END I F 

IF spk = 8 OR spk = 16 OR s pk = 24 OR spk-32 
wert-11 
@kar 

IF spk=8 THEN 

DEFTEXT 1,0, 0,4 
TEXT x-12, y-24, "Cord" 

TEXT x - 1 8 , y - 1 7 , "Ahrens" 

END I F 
a = x 
b = y 

v @far 

PAUSE 5 
END I F 
RETURN 

PROCEDURE far 

IF spk = > 1 AND spk< = 8 
PCIRCLE a - 5 , b , 4 
PCIRCLE a+5 , b , 4 
PCIRCLE a.b-6,4 
LINE a,b-6,a,b+8 
END I F 

IF spk = >9 AND s pk< = 16 
PCIRCLE a-5,b,4 
PCIRCLE a+5 , b , 4 
LINE a-5,b,a+5,b 
LINE a,b,a,b+8 
LINE a-8, b, a, b-10 
LINE a + 8 , b , a , b - 1 0 
COLOR 1 
FILL a , b-4 
END I F 

IF spk =>17 AND spk <=24 
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TIPS & TRICKS! 


COLOR 1 
DEFFILL 2,2 
CIRCLE a-5, b, 4, 0, 2300 
CIRCLE a+5, b, 4, 310Q, 1800 
LINE a - 2 , b , a + 2 , b 
LINE a - 8 , b + 2 , a , b + 1 0 
LINE a + 8, b + 2, a, b+ 10 
F I LL a , b + 4 
END I F 

I F spk=>25 A N D s p k < =32 
COLOR 1 

DRAW a - 5 , b TO a,b-8 TO a+8,b TO a,b + B TO a-8, b 
DEFFILL 2,2 
F I LL a , b 
END I F 
RETURN 

PROCEDURE kar 
RESTORE kart 
FOR i =2 TO wert 
READ k$ 

NEXT i 
kart: 

DATA B, D, K, 0, 0, 7, 8, 9, 10, A 
DEFFILL ,0,0 

PRBOX x-50, y-70, x+50, y+70 
DEFTEXT 1,0,0,13 
DEFFILL 1,1,4 
TEXT x-44, y-50, 14, k$ 

TEXT x +33, y-50, 14, k« 

DEFTEXT 1,0, 1800, 13 
TEXT x - 33 , y + 50 , 1 4 , k $ 

TEXT x+44, y+50, 14, k$ 

RETURN 

PROCEDURE verloren 
CLS 

DEFTEXT ,0,0,32 

TEXT 190, 140, "Tja - verloren !" 

TEXT 1 10, 200, "Wenn Sie wieder Geld haben," 

TEXT 180 , 250, "besuchen Sie uns." 
i =450 
DO 

i = i - 1 

TEXT 180, i, "Auf Wiedersehen !" 

EX IT IF i =300 
EX IT IF MOUSEKOO 
LOOP 

m$="Na,zu Geld gekommen?" 

ALERT 2, m$ , 1 , "Ja I Nein" , b 
IF b = 2 
CLS 

SETCOLOR 0,1 
END 
END I F 
RUN 

RETURN 

PROCEDURE k a s s e _a 1 1 e 
i =0 
CLS 


93 


■ TIPS & TRICKS 


GRAPHMODE 3 
REPEAT 

BOX i MOD 640, i MOD 400,639-i MOD 640,399-i MOD 400 
ADD i , 8 
UNTIL i > = 6400 
GRAPHMODE 1 
DEFTEXT ,0,0,32 

TEXT 60 , 1 45 , 520 , "S i e haben die Bank gesprengt," 

TEXT 195, 180, "Glückwunsch !!!" 

PAUSE 150 

m$="Ihr Nachbar hat verloren. IDie Bank hat wieder Geld! 
ALERT 0, m$, 1 , "Noch Mailich gehe",b 
IF b = 2 
CLS 

SETCOLOR 0, 1 
END 
END I F 
RUN 

RETURN 

PROCEDURE titel 
DEFTEXT 1,0,0,32 
TEXT 245, 180, 150, "Siebzehn" 

TEXT 315, 220, "Sc" 

TEXT 290,260, "Vier" 

DEFTEXT ,0,0,6 

TEXT 245, 278, 150, "Mai , 1988" 

COLOR 0 

FOR i =5 TO 250 STEP 4 

BOX 230-i *1 . 6 , 140- i , 410+ i *1 . 6 , 280+ i 
NEXT i 
PAUSE 160 
COLOR 0 

RETURN 

* 

bub© : 

* 

DATA 18,-16,12, -28, 10,-12,10,-4,14,16,14,30, 
20,30,20,34,8,34,6,16,0,-2,-6,16 
DATA -8,34,-20,34, -20,30, -14,30,-14,16,-10, 

-4, -10, -12, -12, -28, -18, -16, -10 
DATA -10, -10, -4, -26, -16, -16, -36, -4, -38, -4,-42, 
4,-42,4,-38,16,-36,26,-16,10,-4 

dame : 

DATA 10,-14,12,-22,8,-34,8,-18,20,24, -20,24, -8,-18, 

-8, -34, -12, -22, -10, -14 

DATA -11, -10, -16, -20, -12, -38, -2, -40,-1, -42, 1, -42,2, 

-40, 12,-38,16,-20,11,-10 


koen i g : 

y 

DATA -20, 32, 20,32, 20,32,20, -12, 20, -12, 16, -34, 16, -34, 
4,-36,4,-36,4,-38,-20,32,-20,-12 
DATA -20,-12,-16, -34', -16, -34, -4, -36, -4, -36, -4, -36, -4, 
-36,4,-28,4,-28,4,32,-7,-36,0,-24 
DATA' 0,-24,0,32,4,-36,0,-32,6,-36,2,-30,4,-16,12,-24,4, 
-18,11,-22,4,-14,11,-22,0,-54,0,-60,-6,-52,-8,-58, 
6,-52,8,-58,-4,34,-8,34,4,34,8,34,20,30,-20,30 
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Grundlagen 




Gewerkschaften und Betriebsärzte streiten sich schon lange 
mit der Arbeitgeberseite über das Für und Wider von Bildschirm- 
arbeitsplätzen. Sie seien gesundheitsschädlich und 
nicht zumutbar, argumentieren die einen. Alternativen 
sind nach Ansicht der .Arbeitgeber nicht abzusehen. 

Auch die Hersteller von Monitoren setzen sich mit der 
Problematik auseinander. 
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D ie meisten Firmen, die derzeit 
versuchen, sich im Markt der 
hochwertigen Peripheriegeräte 
zu etablieren, orientieren sich an be- 
reits existierenden Produkten der 
Konkurrenz. 

Anders die Marketing-Linie der bel- 
gischen Firma Etap. Ihre Devise 
heißt: Erst Grundlagenforschung be- 
treiben und dann produzieren. Resul- 
tat ist eine Reihe von Erkenntnissen, 
die jeden, der an einem Bildschirm ar- 
beitet oder solche Arbeitsplätze plant, 
interessieren sollten. 

Personen, die täglich vier bis fünf 
Stunden, an 200 Arbeitstagen, und 
das 30 Jahre lang an einem Bildschirm 
arbeiten, verbringen, hochgerechnet 
24.000 Stunden ihres Arbeitslebens 
vor ihrem Monitor. Wenn es durch 
Verbesserung der Arbeitsbedingun- 
gen gelingen sollte, eine Steigerung 
der Produktivität dieser Personen von 
zehn Prozent zu erzielen, so ist dies ein 
Fortschritt. 

Die Ergebnisse der Grundlagenfor- 
schung von Etap zeigen eine denkbare 
Steigerung der reinen Arbeitsge- 
schwindigkeit des Benutzers um 25 
Prozent. Hierzu kommen noch derzeit 
schlecht meßbare Verbesserungen bei 
der Verhütung von Augenschäden 
und die Steigerung des allgemeinen 
Wohlbefindens von Personen, die am 
Bildschirm arbeiten müssen. 


Das Auge im Detail 


Der Monitor eines Computers und 
das menschliche Auge sind zwei Kom- 
ponenten, die auf einander abge- 
stimmt werden müssen. Dies ist nur 
möglich, wenn beider Aufbau und 
Funktion bis ins Detail bekannt ist. 
Die wichtigsten Teile des menschli- 
chen Auges sind die Linse, die Pupille 
und die Netzhaut (Retina). Die Linse 
projiziert eine Abbildung aufdie Netz- 
haut und sorgt für die Schärfe dieser 
Abbildung. Da unsere Augen es ge- 
wohnt sind, immer scharf zu sehen, 
versuchen unsere Augen beim Lesen 
einer unscharfen Vorlage ständig 
durch Strecken und Dehnen von Mus- 
keln die Linse so einzustellen, daß 
eine scharfe Abbildung auf der Netz- 
haut entsteht. Dies ist bei Verwen- 
dung einer unscharfen Vorlage ein 
hoffn ungsiose s Unte rfangen U nsere 
Augen ermüden durch das ständige 
Nachregulieren sehr schnell. Wird 
trotzdem weiter gearbeitet, läßt die 


Konzentration nach, und die Fehler- 
häufigkeit des Arbeitenden steigt stark 
an. Andere Beschwerden, wie zum 
Beispiel Kopfschmerzen, folgen. 
Jeder, der sich schon einmal mit Foto- 
grafie beschäftigt hat, kennt den Be- 
griff Schärfentiefe. Gemeint ist eine 
Abhängigkeit zwischen Blendenöff- 
nung und der Tiefe des Bereichs, der 
scharf dargestellt werden kann. 

Die Pupille übernimmt im menschli- 
chen Auge die Funktion der verstell- 
baren Blende eines Foto-Objektives. 
Je nach Lichteinfall öffnet oder 
schließt sich die Pupille. Bezogen auf 
die Arbeit am Bildschirm heißt dies: 
Ist der Bildschirm sehr hell, schließt 
sich die Pupille und eine große Schär- 
fentiefe wird erreicht. Ist die Bild- 
schirmdarstellung dunkel, so öffnet 
sich die Pupille und das Auge muß die 
Sehschärfe viel häufiger regulieren. 

Ältere Augen brauchen 
mehr Licht 


Personen, die ständig zwischen Pa- 
piervorlagen und Monitordarstellung 
wechseln, strapazieren bei großen 
Helligkeitsunterschieden ihre Augen 
erheblich mehr, als bei nahezu glei- 
cher Helligkeit von Papier- und Bild- 
schirmdarstellung. Ein weiterer Fak- 
tor ist die mit steigendem Alter abneh- 
mende Empfindlichkeit unserer Au- 
gen. Je älter die Person ist, die an ei- 
nem Bildschirm arbeitet, je mehr 
Licht muß ein Monitor abgeben, um 
der Person ein optimales Arbeiten zu 
ermöglichen. Eine andere Vorausset- 
zung für ein zügiges Arbeiten an ei- 
nem Monitor wird nicht im Alter, son- 
dern in frühester Kindheit, in den er- 



Eine in Phase A auf den Monitor 
treffende Welle wird bei Durchdringen 
der 1/4 Lambda-Beschichtung um 
90 Grad-Phasen verschoben. Hierauf 
wird sie in Phase B an der Bildröhren- 
oberfläche reflektiert. Auf ihrem 
Weg nochmals um 90 Grad verschoben, 
ergibt eine Addition dieser Welle 
(Phase C) mit einer Eintreffenden 
den Wert 0. 

sten drei Lebensjahren, geschaffen. 
Zellen in unserem Gehirn die für das 
Sehen und Erkennen zuständig sind, 
werden in dieser Zeit „verdrahtet“. Di- 
verse geometrische Grundmuster 
werden in unseren Gehirnen als 
Hardwaremuster abgelegt. Alle Zei- 
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chen und Abbildungen, die nicht in 
dieser Ablage zu finden sind, muß 
unser Gehirn mit einer Auswerte- 
Software aus diesen Grundmustem 
konstruieren. Dies kostet viel mehr 
Zeit, als eine Auswertung mit Hilfe 
einer Hardware. 

Die Anzahl und die Typen von Mu- 
stern, die unser Gehirn als Hardware 
ablegt, sind abhängig von der Umge- 
bung, in der wir während der ersten 
drei Lebensjahre aufwachsen. Umge- 
ben von Hochhäusern und Beton- 
Architektur bilden gerade Linien und 
rechte Winkel den Grundstock unse- 
rer Wahrnehmungen. Personen, die in 
freier Natur aufwachsen, überneh- 
men die dort vorkommende Formen- 
vielfalt und verfugen über einen be- 
deutend umfangreicheren Vorrat an 
optischen „Hardwarelösungen“. 

Wird ein Text vom Bildschirm gele- 
sen, so verhält es sich ähnlich. Von 
dem Arbeiten mit bedrucktem Papier 


Die Lichtempflndlichkeit unserer 
Augen reduziert sich mit steigendem 
Alter bis auf rund 60 Prozent. 

sind wir es gewöhnt, durchgehende 
Linien zu erkennen und als Buchsta- 
ben zu interpretieren, welche wir 
dann zu Wörtern zusammensetzen. 
Alle Monitore. die eine helle Schrift 
auf dunklem Grund darstellen, sind 
nicht in der Lage, kontinuierliche 
Linien abzubilden. 

Deutlich erkennbar werden alle Zei- 
chen aus Punkten zusammengesetzt. 
Unser Gehirn muß aus diesen Punk- 
ten mit Hilfe der „Software“ ein Zei- 
chen zusammensetzen. Monitore, die 
einen schwarzen Buchstaben auf wei- 
ßem Grund darstellen, bilden konti- 
nuierliche Linien ab. Diese Zeichen 
können im Gehirn mit Hilfe der 
„Hardware“ ausgewertet werden. Da- 
durch wird der Lese- und Verständnis- 
vorgang stark beschleunigt. 


Mit zunehmendem Alter nimmt die 
Fähigkeit des Nahsehens stark ab. 

1974 an der Universität in TTronto/Ca- 
nada, durchgeführte Testreihen zeig- 
ten, daß es bei der damaligen Monitor- 
technologie 30 Prozent mehr Zeit in 
Anspruch nahm, einen Text von ei- 
nem Bildschirm zu lesen, als von ei- 
nem Blatt Papier. Aktuelle, von Etap 
initiierte Untersuchungen an der Uni- 
versität von Groningen zeigen, daß 
dieses Defizit durch Verbesserungen 
der Monitortechnologie vollständig 
ausgeglichen werden konnte. Er- 
staunlich ist, das ein von einem Moni- 
tor gelesener Text sogar schneller und 
besser verstanden wird, als ein von Pa- 
pier gelesener. 

Gestört wird der Nachbar 


Bildschirme, die, bedingt durch eine 
zu geringe Zeilenfrequenz flimmern, 
stören nicht so sehr die Person, die di- 
rekt davor sitzt. Ein Flimmern ist be- 
deutend stärker und störender, wenn 
der Monitor aus spitzem Winkel be- 
trachtet wird. Benachbarte Arbeits- 
plätze werden hierdurch beeinflußt. 
Reflexionen auf einem Monitor sind 
ein jedem Anwender bekanntes Pro- 
blem. Durch eine abgestimmte 
Raumbeleuchtung und eine vernünf- 
tige Aufstellung des Gerätes können 
sie gemindert werden. Die Technik 
der verwendeten Monitore muß das 
ihre dazu beitragen, Reflexionen auf 
ein Minimum zu reduzieren. Eine 
Möglichkeit bietet ein Ätzen der Bild- 
röhrenoberfläche. Störende Refle- 
xionen verschwinden hierdurch fast 
vollständig. Gleichzeitig beeinträch- 
tigt das Ätzen aber die Schärfe und so- 
mit die Lesbarkeit der Abbildung 
deutlich. 

Eine Beschichtung des Röhreninne- 
ren ist derzeit der beste Kompromiß 
zwischen Reflexion und Schärfe. 
Ein Viertel-Lambda-Beschichtung 
heißt eine der neuesten Technologien 
auf diesem Sektor. 

Das bedeutet, daß Fremdlichtauf dem 
Weg zur Röhrenoberfläche, bedingt 
durch eine metallische Beschichtung 
des Röhreninneren, um ein Viertel 
seiner normalen Wellenlänge von ei- 
nem Lambda verzögert wird. Reflek- 
tierte Strahlen müssen diese Verzöge- 
rung zweimal mitmachen und treffen 
so mit einer Verspätung von einer hal- 
ben Wellenlänge wieder mit einfallen- 
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den Lichtstrahlen zusammen. Wird ei- 
ne Welle, das ist ein Lichtstrahl physi- 
kalisch betrachtet, um die Hälfte ihrer 
Länge verzögert, so spricht man auch 
von einer Phasenverschiebung von 
180 Grad. Das Mischen einer Welle 
mit einer Welle gleicher Frequenz, 
aber um 180 Grad gedrehter Phase, 
führt zu einer Auslöschung derselben. 
Somit können Reflexionen fast voll- 
ständig verhindert werden. Abgese- 
hen davon sind Bildschirme mit 
weißem Untergrund und schwarzer 
Schrift sowieso bedeutend weniger 
anfällig für Reflexionen als solche mit 
schwarzem Untergrund. 

Schlagwort Strahlenbelastung 

Strahlenbelastung ist ein in jüngster 
Zeit oft gebrauchtes Wort. Auch die 
Bildröhren von Monitoren geben 
Strahlung ab. Sie entsteht durch die 
Beschleunigung von Elektronen mit 
großer Energie und hoher Frequenz. 
Auf jedem Monitor klebt schließlich 
ein Schildchen, auf dem die Abschir- 
mung der Röhre dokumentiert ist. Die 
verbleibende Reststrahlung liegt 
deutlich unter der Strahlenabgabe an- 
derer Haushalts- und Gebrauchsge- 
genstände. Die Strahlenbelastung ei- 
nes Kühlschranks oder Staubsaugers 
ist, je nach Typ, bis zu zehn mal größer 
als die eines guten Monitors. 

Die bisher gewonnenen Erkenntnisse 
führen zu einem Pflichtenheft, dem 
ein Monitor neuester Technologie ent- 
sprechen müßte. Resultierend aus Be- 
dingungen, die unser Auge, unsere 
Arbeitsplatzumgebung und Gesetze 
der Physik stellen, wurde in den Labo- 
ratorien von Etap in Belgien eine Rei- 
he von Ganzseitenmonitoren in den 
Formaten DIN A4 und A3 entwickelt, 
die den neuesten Stand der Technik 
widerspiegeln. Vorgesehen für den 
Einsatz an IBM-kompatiblen Perso- 
nal-Computern und bei der Macln- 
tosh-Familie sind sie in der Lage, die 
Standardmonitore zu ersetzen. 

Wir haben die IBM-Version des DIN 
A4-Monitors Neftis getestet. Bestand- 
teile des Testgerätes waren, Hebendem 
Monitor, eine lange PC-Steckkarte, ei- 
ne englische Bedienungs- und Instal- 
lationsanleitung sowie zwei Disketten 
mit den erforderlichen Bilschirm- 
treibem. 

Bereits nach Überfliegen der ersten 
Seiten des Handbuchs war klar, daß 
ein so komplexes Peripheriegerät nur 
von einem Fachmann installiert wer- 
den kann. 


Nach zwei Anrufen beim Distributor 
gelang es uns, die Bildschirmkarte an 
den Schneider AT 2640 anzupassen. 
Hierzu müssen zuerst die DlP-Schal- 
ter gefunden werden, die die compu- 
tereigene Bildschirmkarte abschalten. 
Danach kann der neue Bildschirmtrei- 
ber integriert werden. Erscheint beim 
Einschalten des Computers eine Mel- 
dung, die eine erfolgreiche Treiberin- 
stallation quittiert, so steht unter DOS 
der gesamte, DIN A4 große, Bild- 
schirm zur Verfügung. Ein Directory’ 
mit 60 Zeilen ist schon eine imposante 
Erscheinung. 

Die nächste Hürde, die es zu überwin- 
den gilt, ist die Anpassung der Softwa- 
re. In einer großen Zahl von Standafd- 
anwendungen sind die Etap-Monito- 
re im Installationsmenü bereits ent- 
halten. Weitere Treiber befinden sich 
auf den mitgelieferten Disketten. Die- 


gute Abbildungsqualität und Schärfe 
zeichnen diese Bildschirme aus. Stö- 
rende Reflexionen sind kaum festzu- 
stellen. Eine hohe Bildwiederholfre- 
quenz eliminiert jedes Flimmern. 
Die Installation dieser Bildschirme 
sollte auf jeden Fall einem Fachmann 
überlassen werden. Bei Preisen ab 
5000 Mark sollte dieser Service wohl 
im Preis enthalten sein. 

Die Palette laufiahiger, den ganzen 
Bilschirm nutzender Software ist um- 
fangreich und wird ständig erweitert. 
Generell gesagt, ist es eine Wohltat, an 
einem solchen Monitor arbeiten zu 
können. LS 

Bezugsquelle: 

RFI Elektronik GmbH 
Dohrweg 63 

4050 Mönchengladbach 1 
Tel. 02161/60060 



Die Etap-Monitore bilden je nach 
Modell eine komplette DIN A4- oder 
DIN A3-Seite ab. Ein Demo-Bild aus 
GEM macht die Relation zu einem 
Standardmonitor deutlich. 


se Treiber müssen mit einem Editor in 
die entsprechenden Installationsme- 
nüs integriert werden. 

Ausprobiert haben wir den Monitor 
mit den Benutzeroberflächen GEM 
und Windows. Auch Word und Word- 
star können beispielsweise den kom- 
pletten Screen nutzen. Programme, 
die nicht den gesamten Bildschirm 
nutzen können, sind trotzdem laufla- 
hig. Die Etap-Monitore emulieren 
CGA- und Herkulesmodus. So ist es 
zum Beispiel möglich, zwei Herku- 
lesscreens übereinander und gleich- 
zeitig darzustellen. 

Etap-Monitore entsprechen dem 
neuesten Stand der Technik. Eine sehr 
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Computer 
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Computer sind nicht nur Gebrauchsgegenstände. Sie werden 
zunehmend auch von Künstlern als Motiv entdeckt. Einige besonders 
gut gelungene Arbeiten haben wir für Sie, unsere Leser, reservieren 
können. Alle Motive sind strikt auf eine Auflage von 
99 Exemplaren limitiert und von der Künstlerin, Sybille Areco, 
handsigniert und numeriert. Die Exponate werden nach Bestelleingang 
im 24-Farbendruck von Hand gefertigt, die Vorlage nach 

dem 99. Druck vernichtet. Unser Angebot: Jedes Motiv 
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vier Motive nur DM 250,-. Jedes Bild ist 30 x 40 Zentimeter 
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Lieferzeit nach Bestelleingang: ca. drei Wochen. 



Bestellcoupon 
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